Vb- verificare se un file esiste o no

[M@X80]

'************************************************* *************************
'* Verifica l'esistenza di un file
'*
'* UTILIZZO:
'*
'* Verifica = VerifyFile("C:\winnt\notepad.exe")
'*
'* Se il file esiste, ritorna "True"
'*
'************************************************* *************************

Public Function VerifyFile(ByVal FileName As String) As Boolean
Dim FileEx As String

FileEx = Dir(FileName, vbDirectory)

If FileEx <> "" Then
VerifyFile = True
Else
VerifyFile = False
End If

End Function


Su http://cityweb.freeweb.org ho pubblicato una DLL che si occupa proprio della gestione di File.