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 CommandbuttonEste codigo se pone en el commandbutton, y listo.
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 SubCodigo hecho por mi
!
Si quereis saber algo, me avisais
.
