I have started with this example but am getting nowhere :-(
Private Sub ShowHistory(file As IEdmFile5)
On Error GoTo ErrHand
Dim verEnum As IEdmEnumeratorVersion5
Set verEnum = file
Dim pos As IEdmPos5
Set pos = verEnum.GetNextRevision
Dim ver As IEdmVersion5
Dim message As String
message = "History of " + file.name +":" + vbLf
Dim str As String
While Not pos.IsNull
Set ver = verEnum.GetNextRevision(pos)
str = ver.versionNo
message = message + str
str = ver.fileDate
message = message + ", file date=" +str +", user=" + ver.user.name
str = ver.FileSize
message = message + ", file size=" +str +" bytes, comment=" + ver.Comment + vbLf
Wend
MsgBox message
Exit Sub
ErrHand:
Dim ename As String
Dim edesc As String
file.vault.GetErrorString Err.Number, ename, edesc
MsgBox ename + vbLf + edesc
End Sub
