描述

说明

 Function ShowDateCreated(filespec)
   Dim fso,f
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(filespec)
  ShowDateCreated = f.DateCreated
End Function