Help with file system object

[bigfoot]

Can someone please help me with a solution...

I need to return: filename and date last modified from a folder. I ONLY WANT FILES THAT BEGIN WITH 001. My code is below:

Set FSO = New FileSystemObject
Set fFolder = FSO.GetFolder(mszServerInPath)
Set fFiles = fFolder.Files

For Each fFile In fFiles
If Left$(fFile.Name, 3) = "001" Then
debug.print fFile.Name
debug.print fFile.DateLastModified
End If
Next 'objItem

I could do a dir("001*.*&quot but then I can't get the date. What can I do? does fso support wildcards? I can't find any info.

Thank you so much ahead of time

-Gary

 

[JWhyte]

How about trying the following:

Set FSO = New FileSystemObject

For Each fFile In FSO.GetFolder("Folder Name").Files
  If Left$(fFile.Name, 3) = "001" Then
    debug.print fFile.Name
    debug.print fFile.DateLastModified
  End If
Next 'objItem

HTH John Whyte
jwhyte@skipton.co.uk

 

[bigfoot]

I have that.
What I wanted was to only bring back those files that begin with "001". There are about 2000 files in this folder.
It takes too long to process them all.