Does a file exist

[dbalargin]

I am attempting to kill a file. I first need to know if this file exists. If it doesn't, I get an error that says file not found. What can I do to see if the file exists before I try to kill it?

 

[cpod]

Have you considered putting an

On Error Resume Next

statement just before the statement that deletes the file?

 

[dbalargin]

Yes,
But I want to know how to prevent it instead of just turning my head and looking the other way.

 

[cpod]

OK. You can use something like this:

Dim intFileCount as integer, fs
Set fs = Application.FileSearch
With fs
.LookIn = "C:\yourdirectorypath"
.FileName = "yourfilename"
intFileCount = .Execute
End With


If intFilecount is greater than 0 then the file exists.

 

[Travis]

Lookup the DIR Function