How to use fso.GetFile to get more files??

[LordDuzy]

This is the problem
When i get a file, i have to place the full name
Like:
Set myfile = fso.GetFile("C:\Myfolder\file.dat")

Is there a possibility to "Get" all the files in one dir
without knowing the file names?? or just one after a nother useing "For each next"?
thx in advance

 

[zarkon4]

The following code will loop through a directory and delete files older than 10 days for a directory in
m_strReportLoc. Hope this helps you a bit.




Dim fsoPurge As FileSystemObject
Dim fsoFolder As Folder
Dim fsoFile As File

Set fsoPurge = New FileSystemObject
Set fsoFolder = fsoPurge.GetFolder(m_strReportLoc)

For Each fsoFile In fsoFolder.Files
If DateDiff("d", fsoFile.DateCreated, Now) > 10 Then
fsoFile.Delete True
End If
Next

Set fsoFile = Nothing
Set fsoFolder = Nothing
Set fsoPurge = Nothing

 

[LordDuzy]

thanks
just what i need