Dim fs, f,aa, bb, cc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("d\adc.mdb")
aa = f.DateCreated '建立日期
bb = f.DateLastAccessed '最后访问日期
cc = f.DateLastModified '最后更新日期
以下是引用hi-wzj在2006-12-1 15:04:00的发言:
Dim fs, f,aa, bb, cc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("d\adc.mdb")
aa = f.DateCreated '建立日期
bb = f.DateLastAccessed '最后访问日期
cc = f.DateLastModified '最后更新日期