Check if File Exists or not 2

[Guest_imported]

Hi there,

I am new to VBA, so please be patient.
I need a Sub Procedure which proofs if a file does exist or not. With following structure:

Sub CheckExistence(file$)

'If file$ = exists Then ....

End Sub

How can I achieve this?

Thanks for your help,
SJ

 

[bujin]

Use the Dir() command.

if Dir(file$) = "" then 'file does not exist

You need to use the whole path name though.

For a function like the one you want, try the following:

Function CheckExistence(filename As String) As Boolean
If Dir(filename) = "" Then
CheckExistence = False
Else
CheckExistence = True
End If
End Function