VBS-获取文件的日期

**

获取文件的创建时间修改时间

**
Dim SetTime

filePath = WScript.Arguments(0)
'filePath = “***”

set fso=createobject(“Scripting.FileSystemObject”)
set fn=fso.GetFile(filePath)

'MsgBox “文件创建时间：”&fn.DateCreated
'MsgBox “文件最后访问时间：”&fn.DateLastAccessed

SetTime=fn.DateLastModified
'MsgBox “文件最后修改时间：”&SetTime

set fn=nothing
set fso=nothing
WScript.StdOut.WriteLine(SetTime)