获得一个文件的最后一次修改时间
Private Sub Command1_Click()
Dim iFile As String
Dim FileTime
iFile = "k:\计算机.xls"
FileTime = Format(FileDateTime(iFile), "YYYY-MM-DD")
Print FileTime
End Sub
Private Sub Command2_Click()
获得一个文件的创建时间
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("k:\计算机.xls")
s = "Created: " & f.DateCreated
Print s
End Sub
这个好像不可以,我以前也试过,但是没有成功.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024