Checking if a file exists...

[Arie]

Hi,

I want to know how to check if a file exists?
how?

Thank you,
Arie. (mag.up.co.il)

[DaoK]

Private Function Exists(strFullPath As String) As Boolean
    Exists = Len(Dir$(strFullPath)) <> 0
End Function

use that

[DaoK]

Private Sub Form_Load()
If Exists("c:\windows\font.zip") = True Then
    MsgBox "The File Exist"
Else
    MsgBox "The File Do NOT Exist"
End If
End Sub
 
Private Function Exists(strFullPath As String) As Boolean
    Exists = Len(Dir$(strFullPath)) <> 0
End Function

[Arie]

Thank you,
Arie.