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
FileSystemObject 对象简介：
FileSystemObject 对象用于访问服务器上的文件系统。此对象可对文件、文件夹以及目录路径进行操作。也可通过此对象获取文件系统的信息。
下面的代码会创建一个文本文件 (c:\test.txt)，然后向这个文件写一些文本：
<%
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
%>
更多请参考FileSystemObject官方文档：http://msdn.microsoft.com/zh-cn/library/aa711216
vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法
原文：http://www.jb51.net/article/53719.htm
