2个回答
展开全部
获得一个文件的最后一次修改时间
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询