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