7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
vbman2003 2005-11-09
- 打赏
- 举报
呵呵，楼上强，学习了。查了一下MSDN，上面的例子：
Sub ShowFileInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = "Created: " & f.DateCreated
MsgBox s
End Sub
Sub ShowFileInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = "Created: " & f.DateCreated
MsgBox s
End Sub
hhjjhjhj 2005-11-08
- 打赏
- 举报
msgbox createobject("scripting.filesystemobject").getfile("C:\test.txt").DateCreated
fxcjy 2005-11-08
- 打赏
- 举报
这样获取的是文件的最后修改时间,并不是最初的创建时间,如果有过文件修改,那得到的时间就不会是创建时的时间了.
vbman2003 2005-11-08
- 打赏
- 举报
Dim iFile As String
Dim FileTime
iFile = "c:\setup.txt"
FileTime = Format(FileDateTime(iFile), "YYYY-MM-DD")
Print FileTime
Dim FileTime
iFile = "c:\setup.txt"
FileTime = Format(FileDateTime(iFile), "YYYY-MM-DD")
Print FileTime
