用FSO取得目录中最新的一个文件，在线

Question

myfolder.Files.Item(1)这样取法不行？
只是想取这个目录下第一个文件，然后For Each循环比较一下，不知道为什么不行？在线

Answer 1

Option Explicit
Dim WjFileys As FileSystemObjectPrivate Sub Command1_Click()
Dim FileStr As String
Dim FileObj As File, FileTmp As File
Dim ThisFile As String
FileStr = Dir("c:\*.*")
Set FileTmp = WjFileSys.GetFile(FileStr)
Do While FileStr <> ""
Set FileObj = WjFileSys.GetFile(FileStr)
If FileObj.DateLastModified > FileTmp.DateLastModified Then
    ThisFile = FileObj.Name
End If
FileStr = Dir
Loop
MsgBox "最新的文件为：" & ThisFile
End SubPrivate Sub Form_Load()
   Set WjFileSys = CreateObject("Scripting.FileSystemObject")
End Sub

Answer 2

试试用DateCreated 这个函数，可以得到文件创建日期，然后作比较set f=fso.GetFile(app+文件名）'你可以用dir函数来的到所有*.*的文件名
msg=UCase(filespec)&vbCrLf
msg=msg&f.DateCreated&vbCrLf

Answer 3

set objfolder=fso.getgolder("你的文件夹")
for each item in objfolder这样就得到了其中的每一个文件

Answer 4

datelastmodified是最后修改的时间