1个回答
展开全部
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 ‘文件大小 字节为单位
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 ‘文件大小 字节为单位
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
