在VB中如何获取一个文件的最近修改日期

'使用菜单【工程】--【引用】--Microsoft Scripting Runtime

Option Explicit

Private Sub Command1_Click()

Dim MyFileSystem As New FileSystemObject

Dim MyFile As File

Set MyFile = MyFileSystem.GetFile("C:\ssk.txt") '对应的文件标识符

Print "文件创建时间："MyFile.DateCreated'文件创建时间

Print "文件访问时间："MyFile.DateLastAccessed '文件访问时间

Print "文件修改时间："MyFile.DateLastModified '文件修改时间

End Sub

GetTime函数获取文件的创建时间，访问时间或修改时间，其参数如下：

第一个参数指定一个完整的文件路径及名称，第二个参数指定要获取创建时间(theCreateTime)，访问时间(theLastAccessTime)还是最后修改时间(theLastWriteTime)，缺省为创建时间

如：获取文件创建时间

Private Sub Command1_Click()

MsgBox GetTime("c:\abc.txt")

End Sub

---