Código: Seleccionar todo
'------------------------------------------------------
'Coded By The Swash
'[email protected]
'www.Indetectables.net & www.Leandroascierto.com.ar
'Exist Function if know File Exist
'------------------------------------------------------
Public Function Exist(file As String)
On Error Resume Next
Exist = GetAttr(file)
Exit Function
End FunctionCódigo: Seleccionar todo
If Exist(your file path) Then
MsgBox"My File Exist"
Else
MsgBox"My File Not Exist"
End If
