在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

修改文件的创建时间system.io.file.setcreationtime(label1.caption,

cdate(

text1.text

&

"-"

text2.text

&

"-"

text3.text

&

"

" text4.text

&

":"

text5.text

&

":"

text6.text))

文件的修改时间用system.io.file.setlastwritetime

如果label1是用打开对话框选择的要加cdlg

核心代码给你了

自己研究吧

vb正好有一个这样的函数：

fname="d:\www\a.txt"

print FileDateTime(fname) '获得详细的修改时间

print format(FileDateTime(fname), "YYYY-MM-DD") '获得修改日期

---