Visual Basic Library

This page was last updated on Saturday, November 24, 2001
Public Function strDocumentStamp(doc As Document) As String
' Procedure:    strDocumentStamp
' Description:  Return string size/date/time stamp of a document.
' Copyright:    Chris Greaves Inc.
' Inputs:       DOCUMENT
' Returns:      STRING
' Assumes:      None.
' Side Effects:
' Tested:       By the calls listed below.
' Method:
'       Uses the file name and two document properties as a test
'       Property 1: number of bytes
'       Property 2: last save time
    Dim strResult As String ' Transient result
    strResult = ""
    strResult = strResult & strcINIFileDelimiter & doc.BuiltInDocumentProperties("Number Of Bytes")
    strResult = strResult & strcINIFileDelimiter & doc.BuiltInDocumentProperties("Last Save Time")
    strDocumentStamp = strResult
'Sub TESTstrDocumentStamp()
'MsgBox strDocumentStamp(ActiveDocument)
'End Sub
End Function