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

vbs中获取脚本当前路径的2个方法
方法一：currentpath=createobject("Scripting.FileSystemObject").GetFolder(".").Path方法二：currentpath=createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Pa