' Initialize the API and connect to a vault.
Dim oVault As MFilesAPI.Vault
' ...

' We are searching for the document with ID 123.
Dim iDocumentId As Integer
iDocumentId = 123

' Initialize an ObjID object for the search.
Dim oObjId As New MFilesAPI.ObjID
oObjId.SetIDs(MFilesAPI.MFBuiltInObjectType.MFBuiltInObjectTypeDocument, iDocumentId)

' Invoke the search operation.
Dim oObjectVersion As MFilesAPI.ObjectVersion
Dim oObjectVersionAndProperties As MFilesAPI.ObjectVersionAndProperties
oObjectVersionAndProperties = oVault.ObjectOperations.GetLatestObjectVersionAndProperties(oObjId, True)
oObjectVersion = oObjectVersionAndProperties.VersionData

' Download all the files of the object.
Dim oObjectFiles As MFilesAPI.ObjectFiles = oObjectVersion.Files
For Each oObjectFile As MFilesAPI.ObjectFile In oObjectFiles
    ' Construct the target path for downloading the file.
    Dim szTargetPath = "C:\MyWorkFiles\" + oObjectFile.GetNameForFileSystem()
    ' Output the title and the extension of the object file.
    Call Console.WriteLine("Downloading '" + szTargetPath + "'")
    oVault.ObjectFileOperations.DownloadFile(oObjectFile.ID, oObjectFile.Version, szTargetPath)
Next

' Play around with the files here.
' ...

' Start uploading the files back to M-Files.
Dim oObjectVersionCheckedOut As MFilesAPI.ObjectVersion
' This object is not yet checked out for the current user, so try to check it out.
oObjectVersionCheckedOut = oVault.ObjectOperations.CheckOut(oObjId)

' Upload all the files of the object.
Dim oObjectFiles2 As MFilesAPI.ObjectFiles = oVault.ObjectFileOperations.GetFiles(oObjectVersionCheckedOut.ObjVer)
For Each oObjectFile As MFilesAPI.ObjectFile In oObjectFiles2
' Construct the source path for uploading the file.
    Dim szSourcePath = "C:\MyWorkFiles\" + oObjectFile.GetNameForFileSystem()
    ' Output the title and the extension of the object file.
    Call Console.WriteLine("Uploading '" + szSourcePath + "'")
    oVault.ObjectFileOperations.UploadFile(oObjectFile.ID, oObjectFile.Version, szSourcePath)
Next

' Finally, we must check in the changes.
oVault.ObjectOperations.CheckIn(oObjectVersionCheckedOut.ObjVer)

' Initialize the API and connect to a vault.
Dim oVault As MFilesAPI.Vault
' ...

' We are searching for the document with ID 123.
Dim iDocumentId As Integer
iDocumentId = 123

' Initialize an ObjID object for the search.
Dim oObjId As New MFilesAPI.ObjID
oObjId.SetIDs(MFilesAPI.MFBuiltInObjectType.MFBuiltInObjectTypeDocument, iDocumentId)

' Invoke the search operation.
Dim oObjectVersionCheckedOut As MFilesAPI.ObjectVersion
Dim oObjectVersionAndProperties As MFilesAPI.ObjectVersionAndProperties
oObjectVersionAndProperties = oVault.ObjectOperations.GetLatestObjectVersionAndProperties(oObjId, True)
oObjectVersionCheckedOut = oObjectVersionAndProperties.VersionData

' Get the info for all the versions of this document.
Dim oObjectVersions As MFilesAPI.ObjectVersions
oObjectVersions = oVault.ObjectOperations.GetHistory(oObjId)

' Check if this object version is checked out to the current user.
If oObjectVersionCheckedOut.ThisVersionCheckedOut Then
    Call Console.WriteLine("Document object: '" + oObjectVersionCheckedOut.GetNameForFileSystem() + "' [checked out to me]")
    Call Console.WriteLine("   Current version: " + CStr(oObjectVersionCheckedOut.ObjVer.Version))
    Call Console.WriteLine("   Checked out: " + oObjectVersionCheckedOut.CheckedOutAtUtc + " UTC")
    ' Try to resolve the previous version number before checkout.
    If oObjectVersions.Count > 1 Then
        Dim oObjectVersionOld As MFilesAPI.ObjectVersion = oObjectVersions.Item(oObjectVersions.Count - 1)
        Call Console.WriteLine("      Latest version before checkout identified by: " + CStr(oObjectVersionOld.ObjVer.Version))
    End If
Else
    Call Console.WriteLine("Document object: '" + oObjectVersionCheckedOut.GetNameForFileSystem() + "'")
End If

' Resolve the last modification timestamp of the object.
Dim dtObjectModification As Date = oObjectVersionCheckedOut.LastModifiedUtc
Call Console.WriteLine("   Object modified: " + CStr(dtObjectModification) + " UTC")

' Process the object files.
Dim oObjectFiles As MFilesAPI.ObjectFiles = oObjectVersionCheckedOut.Files
For Each oObjectFile As MFilesAPI.ObjectFile In oObjectFiles
    ' Construct the FileVer string for the file.
    Dim szFileVer = CStr(oObjectFile.ID) + "-" + CStr(oObjectFile.Version)
    ' Output the identification of the object file.
    Call Console.WriteLine("   Document file: '" + oObjectFile.GetNameForFileSystem() + "'")
    ' Resolve the last modification timestamp of the file content.
    Dim dtContentModification As Date = oObjectFile.LastAccessTimeUtc
    Call Console.WriteLine("      Currently identified by: " + szFileVer)
    ' Try to find the previous versions of the object files.
    If oObjectVersionCheckedOut.ThisVersionCheckedOut And oObjectVersions.Count > 1 Then
        Dim oObjectFilesOld As MFilesAPI.ObjectFiles = oObjectVersions.Item(oObjectVersions.Count - 1).Files
        For Each oObjectFileOld As MFilesAPI.ObjectFile In oObjectFilesOld
            If oObjectFileOld.ID = oObjectFile.ID Then
                ' Construct the FileVer string for the previous version of the file.
                Dim szFileVerOld = CStr(oObjectFileOld.ID) + "-" + CStr(oObjectFileOld.Version)
                Call Console.WriteLine("      Latest version before checkout identified by: " + szFileVerOld)
                Call Console.WriteLine("      File content modified: " + CStr(dtContentModification) + " UTC")
            End If
        Next
    End If
Next