vbscript获取文件修改，创建，访问时间

  set fso=createobject("Scripting.FileSystemObject")
  set fn=fso.GetFile("E:\AD.txt")
  msgbox "文件创建时间："&fn.DateCreated
  msgbox "文件最后修改时间："&fn.DateLastModified
  msgbox "文件最后访问时间："&fn.DateLastAccessed
  set fn=nothing
  set fso=nothing