Comunidad PHPeros

Lenguajes => Visual Basic => Mensaje iniciado por: Erik en 07 de Abril de 2008, 20:46:42 pm

Título: Buscar archivos
Publicado por: Erik en 07 de Abril de 2008, 20:46:42 pm

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: [Seleccionar]

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 :).

Título: Re: Buscar archivos
Publicado por: Firex en 30 de Abril de 2008, 11:13:21 am

Correcion total:
--
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

--

Juas ok lo busca pero una vez lo encuentra solo sale k lo encontro Pd:

Ahora has k lo abran con shell man..pk estos codes son basura..