If File Exists

[Ross_m]

Hi,

I want to make a script that checks that all the required files are where before starting the application.

I was to write something like:

If App.Path & "\config.ini" does not exist THEN
MsgBox "Error"
End If


Any ideas?

Thanks!

[Bearnerd]

You mean something like this?

Private Sub Command1_Click()
On Error GoTo ErrH
    Open "c:\anyfile.txt" For Input As #1
    'Anything here
    Close #1
    Exit Sub
ErrH:
    If Err.Number = 53 Then MsgBox "File not found!"
End Sub

[Ross_m]

Thanks alot!

[ganeshmoorthy]

You can check the file's existance using the Dir() command...the example would be

If Dir(App.Path & "\config.ini", vbNormal) = "" Then
        MsgBox "File does not Exists"
    End If