描述

说明

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