DocFileName

Syntax

DocFileName (index as Long) as String

Sample Code

If a workdoc was created from a single document, such as a multi-TIFF file, you can get the name of the document file by accessing the 0 index.

Path = pWorkdoc.DocFileName(0)
The script function below returns the TIF file creation date.
Public Function fnGetFileDate(pWorkdoc as SCBCdrPROJLib.SCBCdrWorkdoc) as String
   Dim FSO as New Scripting.FileSystemObject
   Dim oFile as Scripting.File
   Dim strFileName as String
   Dim dtCreated as Date
   strFileName = Replace(pWorkdoc.DocFileName(0),".wdc",".tif")
   If FSO.FileExists(strFileName) Then
      Set oFile = FSO.GetFile(strFileName)
      dtCreated = oFile.DateCreated
      fnGetFileDate = Month(dtCreated) & "/" & Day(dtCreated) & "/" & Year(dtCreated)
   End If
   Set FSO = Nothing
   Set oFile = Nothing
End Function