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

Question

如题所述

Answer 1

'使用菜单【工程】--【引用】--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

Answer 2

可以用FSO对象,获取修改日期及时间
Set fso=CreateObject("Scripting.FileSystemObject") '使FSO组件可以被fso变量调用
getfso=fso.GetFile("c:\windows\笔记.txt").DateLastModified '返回文件对象的最后修改时?
请参考FSO方法和属性
http://wenku.baidu.com/link?url=U5Oah9joGl5iEq9LtZP5iehknVxDBcsWVP8wHlkx6h9WLr527SyMLJ-RZw6lOoxxixqPi56QZID3yJnsoA9lbVDeF2olwM8H5tIbTi8on_S