Título: Buscar archivo en visual basic
Publicado por: XxTheCochixX en 25 Mayo 2010, 21:57 pm
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!!!
Título: Re: Buscar archivo en visual basic
Publicado por: ssccaann43 © en 25 Mayo 2010, 22:03 pm
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.
Título: Re: Buscar archivo en visual basic
Publicado por: xkiz ™ en 26 Mayo 2010, 01:11 am
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
Título: Re: Buscar archivo en visual basic
Publicado por: XxTheCochixX en 26 Mayo 2010, 21:02 pm
gracias manes me fue de mucha ayuda su respuesta saludos!!!
|