Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: XxTheCochixX en 25 Mayo 2010, 21:57 PM

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

Código (vb) [Seleccionar]

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]


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
Código (vb) [Seleccionar]

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