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

<%
dim fs,fname
      set fs=Server.CreateObject("Scripting.FileSystemObject")
      set fname=fs.CreateTextFile("c:\test.txt",true)
      fname.WriteLine("Hello World!")
      fname.Close
set fname=nothing
set fs=nothing
%>