Private Sub CmdAceptar_Click()
Dim ValDev As Boolean, UnArchivo As String
UnArchivo = "c:\autoexec.bat"
ValDev = ExisteArchivo(UnArchivo)
MsgBox "Existe Archivo = " & ValDev & vbCrLf & UnArchivo
End Sub
 
 
Private Function ExisteArchivo(sNombreArchivo As String) As Boolean
Dim AttrDev%
On Error Resume Next
AttrDev = GetAttr(sNombreArchivo)
If Err.Number Then
   Err.Clear
   ExisteArchivo = False
Else
   ExisteArchivo = True
   End If
End Function
 

 
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
 
Private Sub Form_Load()
 
MsgBox "Existe ? " + CStr(CBool(PathFileExists("c:\autoexec.bat")))
 
 
End Sub