Dim ObjFileSystem As New FileSystemObject '需引用Microsoft Scripting Runtime
Dim ObjFile As File
Set ObjFile = ObjFileSystem.GetFile(App.Path & "y.doc") '文件名
Debug.Print ObjFile.DateCreated '文件創(chuàng )建時(shí)間
Debug.Print ObjFile.DateLastAccessed '文件訪(fǎng)問(wèn)時(shí)間
Debug.Print ObjFile.DateLastModified '文件修改時(shí)間