VB,获取一个文件的建立时间,修改时间 2007-06-18 16:50:53

分类：

Dim ObjFileSystem As New FileSystemObject '需引用Microsoft Scripting Runtime
Dim ObjFile As File
Set ObjFile = ObjFileSystem.GetFile(App.Path & "y.doc") '文件名
Debug.Print ObjFile.DateCreated '文件创建时间
Debug.Print ObjFile.DateLastAccessed '文件访问时间
Debug.Print ObjFile.DateLastModified '文件修改时间