Buscar archivo en visual basic

[XxTheCochixX]

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!!!

[ssccaann43 ©]

Fijate en esto...!

Código (vb) [Seleccionar] Expandir


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:

Código (vb) [Seleccionar] Expandir



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.

[xkiz ™]

Código (vb) [Seleccionar] Expandir


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



[XxTheCochixX]

gracias manes me fue de mucha ayuda su respuesta saludos!!!