Need to test for file presence

[Grant]

I have a macro that looks for a specfic file in a directory. It opens
the file and then does some other stuff. What I want to do is test to
see if the file is present or not. I think I should use an If Then Else
statement,
but I'm not sure how to test if the file Workbooks.OpenText Filename:=
"pathToFile\pobcinv
is successful.


If Workbooks.OpenText Filename:= "pathToFile\pobcinv" is successfull Then
'Statements
Else


T.I.A.

Grant

 

[Guest]

This is some code I wrote to check for a file on a disk. If you change the
LookIn directory and the Filename then you can setup any "Then" statement you
want.


Set fs = Application.FileSearch
With fs
.LookIn = "A:\"
.Filename = "GLMISC.txt"
If .Execute > 0 Then

 

[Grant]

Thanks. I got that to work.

This is some code I wrote to check for a file on a disk. If you change
the
LookIn directory and the Filename then you can setup any "Then" statement
you
want.


Set fs = Application.FileSearch
With fs
.LookIn = "A:\"
.Filename = "GLMISC.txt"
If .Execute > 0 Then

 

[Myrna Larson]

If Len(Dir$("pathToFile\povcinv") <> 0 Then
Workbooks.OpenText Filename:= "pathToFile\pobcinv"