Code:

Function ReadProp(sPropName As String) As Variant

Dim bCustom As Boolean
Dim sValue As String

  On Error GoTo ErrHandlerReadProp
  'Try the built-in properties first
  'An error will occur if the property doesn"t exist
  sValue = ActiveDocument.BuiltInDocumentProperties(sPropName).Value
  ReadProp = sValue
  Exit Function

ContinueCustom:
  bCustom = True

Custom:
  sValue = ActiveDocument.CustomDocumentProperties(sPropName).Value
  ReadProp = sValue
  Exit Function

ErrHandlerReadProp:
  Err.Clear
  'The boolean bCustom has the value False, if this is the first
  'time that the errorhandler is runned
  If Not bCustom Then
    'Continue to see if the property is a custom documentproperty
    Resume ContinueCustom
  Else
    'The property wasn"t found, return an empty string
    ReadProp = ""
    Exit Function
  End If

End Function


Function GetInfo() As String
' Get information from the active document
'
  Dim info As String
  info = "Ime dokumenta: " & ActiveDocument.Name & vbCr
  
  PropVal = ReadProp("Author")
  info = info & "Kreator: " & PropVal & vbCr

  PropVal = ReadProp("Number of pages")
  info = info & "Broj strana:" & PropVal & vbCr
  
  PropVal = ReadProp("Number of characters")
  info = info & "Broj karaktera:" & ActiveDocument.Characters.Count & vbCr
  
  PropVal = ReadProp("Creation date")
  info = info & "Datum kreiranja:" & PropVal & vbCr
  
  
  PropVal = ReadProp("Last save time")
  info = info & "Datum izmene:" & PropVal & vbCr
  
  GetInfo = info
End Function

Code:


    Dim fs, f, s

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.GetFile("c:\myfolderabc\myfileabc.txt")

    s = "Created: " & f.DateCreated

    MsgBox s