サンプルコードはVB.
Dim url As String
Dim ver As New PKMCDO.KnowledgeVersion
Dim rs As Recordset
Dim m_ver_url As String
Set rs = ver.VersionHistory(url)
If rs.EOF Then
'一度もファイルを公開していないと、
'いきなりEOFになる
MsgBox "履歴なし"
Else
While Not rs.EOF
'PKMCDO.KnowledgeDocumentでこのURLを使えば、
'いろいろと情報を拾うことが可能
m_ver_url = rs.Fields("DAV:href")
MagBox m_ver_url
rs.MoveNext
Wend
End If
tags: SharePoint Portal Server zurazure
Posted by NI-Lab. (@nilab)

