Dim ObjFileSystem As New FileSystemObject '需引用MicrosoftScripting Runtime
Dim ObjFile As File
Set ObjFile = ObjFileSystem.GetFile("d:/19.txt")'文件名
Debug.Print ObjFile.DateCreated '文件创建时间
Debug.Print ObjFile.DateLastAccessed '文件访问时间
Debug.Print ObjFile.DateLastModified '文件修改时间
FileSizes = ObjFile.Size ‘文件大小 字节为单位
内容全部来源于网络收集，如有侵权，请联系网站删除!