Checking if file exists

[Lagoon1]

Hi
I have set up a listing of file names on, say Sheet 1.
I would like a code that loops through the folder and returns "file found" or "file not found."

I have already set the filter for the type of files that I need.

Can someone pls kindly assist.

Thanks very much.

Regards,

Lagoon1.

 

[PHV]

What have you so far ?

 

[IFRs]

something like this perhaps?

If Dir("C:\Folder\Filename&quot > "" Then
Range("A1&quot="Found"
Else
Range("A1&quot="NotFound"
EndIf

 

[MakeItSo]

hi Lagoon.

You could try with the "FileExists" method:

Dim fs, fe as boolean
Set fs = CreateObject("Scripting.FileSystemObject&quot
fe=fs.FileExists(filepath)

if fe then
Range("A1&quot="Found"
else
Range("A1&quot="NotFound"
endif

Cheers,
MakeitSo



Andreas Galambos
EDP / Technical Support Specialist
(andreas.galambos@bowneglobal.de)
HP:

http://www.andygalambos.de