7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2003-12-04
- 打赏
- 举报
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim f As File, msg As String
Set f = fso.GetFile("c:\windows\pbrush.exe")
msg = "创建时间: " & f.DateCreated
msg = msg & vbCrLf & "访问时间: " & f.DateLastAccessed
msg = msg & vbCrLf & "修改时间: " & f.DateLastModified
MsgBox msg, 0, f.Name
End Sub
Dim fso As New FileSystemObject
Dim f As File, msg As String
Set f = fso.GetFile("c:\windows\pbrush.exe")
msg = "创建时间: " & f.DateCreated
msg = msg & vbCrLf & "访问时间: " & f.DateLastAccessed
msg = msg & vbCrLf & "修改时间: " & f.DateLastModified
MsgBox msg, 0, f.Name
End Sub
