Identifying whether an excel file exists

[JT]

Hello group!

I have a (hopefully) quick query. Can anybody help?

I am writing a procedure and require a function which reads a file
path string and returns true or false depending on whether the file
exists on the user's computer. Does anybody out there know how this
can be achieved?

Thanks in advance.

John

 

[Guest]

Hi JT,

Before you use the below funtion, you have to get a reference to 'Microsoft
Scripting Runtime'

Function CheckFile() As Boolean
Dim mFile As FileSystemObject

Set mFile = New FileSystemObject
CheckFile = mFile.FileExists("C:\test\test.xls")
End Function

In the above function you can type your path or change the function to suit
your requirements.

HTH,

 

[Guest]

JT, try this

len(dir("C:\Test.txt")) > 0

Substitute your file for "C:\Test.txt"

 

[Guest]

Sub test()
If Dir("C:\Data\test.xls") <> "" Then
MsgBox "Exist"
Else
MsgBox "Not exist"
End If
End Sub

Just re-cast it as a Boolean function

 

[Frederik]

Hello JT

Have a look at:

http://www.j-walk.com/ss/excel/tips/tip54.htm

I learned a lot from J. Walkenbachs site!!!

Enjoy!

 

[JT]

Thanks to all of you, that was really helpful.

John Walkenbach wrote the Excel VBA for dummies book and I'm a fan of
his work.