サンプルコードは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)