jump to navigation

Buscar archivos Abril 30, 2008

Posted by erik in : VisualBasic , trackback

Bueno, es lo que os voy a enseñar actualmente.
Esto es para buscar un archivo en C:,Mis documentos y lo que querais, donde pone &, haces esto: & carpeta &, y sigues con el codigo

Necesitaremos 1 textbox y 1 Commandbutton

Este codigo se pone en el commandbutton, y listo.

Código:

Private Sub Command1_Click()
Dim resultado As String
Dim archivo As String
archivo = "" & "\archivo_a_buscar.exe"
resultado = Dir(archivo)
If Len(resultado) = 1 Then
Text1.Text = "El archivo que se buscaba se ha encontrado"
Else
Text1.Text = "El archivo que se buscaba no se ha encontrado"
End If
End Sub

Codigo hecho por mi Smiley!
Si quereis saber algo, me avisais Smiley.

Comments»

no comments yet - be the first?