Looping through files 1

[Corbie]

I need to go through all the files in a subdirectory and process them accordingly. I can handle all the actual processing, but how do you loop through all the files? I thought about writing the file names to a worksheet using Application.FileSearch then loop through the names, but is there a simpler/more elegant way to do it


Thanks for any help

 

[Loomah]

Hi Corbie
You could use the FileSystemObject object's methods etc. An example:

Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject&quot
Set f = fs.GetFolder(Your folder with path)
Set fc = f.Files
For Each f1 In fc
' Do your thang here
Next f1

;-) If a man says something and there are no women there to hear him, is he still wrong?

 

[xlbo]

Hi - try this
Sub LoopFilenames()
Dim filename As String

filename = Dir$("\\Yorkshire\Shared\Plans\*.tif&quot'change to whatever extension you're looking for
'Start File Search

Do While filename <> &quot;&quot;
msgbox = filename
filename = Dir$()
Loop
end sub Rgds
~Geoff~

 

[Corbie]

Thanks guys - I'll try your suggestions out
and get back to you

 

[SkipVought]

xlbo - GOOD ONE! ) Skip,
SkipAndMary1017@mindspring.com

 

[Corbie]

Yes - Worked great - Thanks alot

Corbie