作者在 2015-03-13 11:53:06 发布以下内容
Clear
FSO=CreateObject("Scripting.FileSystemObject")
sourcepath="d:\sn.txt"
oBjset = FSO.GetFile(sourcepath)
? "文件创建日期及时间:",oBjset.DateCreated
sourcepath1="F:\Picture"
oBjset = FSO.GetFolder(sourcepath1)
? "文件夹创建日期及时间:",oBjset.DateCreated
Release FSO
