Buscar archivos

[eriik]

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 !
Si quereis saber algo, me avisais .

[craker13]

 hola que tal men este muy bien tu aporte espero que sigas enviando mas.....

   

[Zion_Tm]

El tema esta en que vos tenes que poner la ruta exacta, no podrias hacer que lo busque en todo Unidad C: ?

[eriik]

Borrariamos esta linea:

Código:

\archivo_a_buscar.exe"