hola manes aca de nuevo con una pregunta del dia mi pregunta es la siguiente :
como puedo buscar un archivo desde mi vb y aplicar una condicion que diga que si existe ejecute una accion bueno manes eso es todo gracias!!!
Fijate en esto...!
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
Otra forma es:
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
si no con la función Dir.
Private Declare Function FileExists Lib "kernel32" Alias "GetShortPathNameA" (ByVal sFile As String, ByVal nu As Any, ByVal nu As Long) As Long
Private Sub Form_Load()
If FileExists("c:\aaaa.txt", 0&, 0) <> 0 Then
MsgBox "existe"
Else
MsgBox "No existe"
End If
End Sub
gracias manes me fue de mucha ayuda su respuesta saludos!!!