Programación General > Visual Basic 6.0 e inferiores

 programa de archivos en visual basic

<< < (2/3) > >>

cpmario:
Supón que la caja de texto donde escribes el nombre del archivo que deseas buscar se llama txtNombreArchivo entonces escribes en lugar de:


--- Código: Text ---strNombreArchivo = "ALGORITMOS.PDF" Escribes

--- Código: Text ---strNombreArchivo = txtNombreArchivo.Text   :comp:

esme1286:
Hola lo he hecho asi como dijiste pero me marca un error

Public Function FileExists(sFile As String) As Boolean
    ' Tests for file existence
    If sFile = "" Then
        FileExists = False
    End If
    On Error Resume Next
    FileExists = ((GetAttr(sFile) And vbDirectory) = 0)
End Function
' boton buscar//
Private Sub Command1_Click()
Dim strRuta As String
    Dim strNombreArchivo As String
    Dim strRutaYNombreArchivo As String
   
    strRuta = "D:MIS DOCUMENTOSMIS ARCHIVOSSOFTWARELIBROS Y SERIALES DE SOFTWARE" 'Ruta donde tienes los libros
    strNombreArchivo = txtNombreArchivo.Text
    strRutaYNombreArchivo = strRuta & strNombreArchivo
    If FileExists Then ' error de compilacion, el argumento no es opcional        MsgBox "Encontré el archivo", vbExclamation
    Else
        MsgBox "No encontré el archivo", vbExclamation
    End If

End Sub

lo que esta en azul es el error que me marca

gracias espero me respndas.

cpmario:
Cambia

--- Código: Text ---If FileExists Then 
por


--- Código: Text ---If FileExists(strRutaYNombreArchivo) Then  :comp:

esme1286:
No funciona, le pongo tal cual lo pones y ahora me da un error aqui....

Private Sub Command1_Click()
Dim strRuta As String
    Dim strNombreArchivo As String
    Dim strRutaYNombreArchivo As String
   
    strRuta = "C:" 'Ruta donde tienes los libros
    strNombreArchivo = txtNombreArchivo.Text              'Se requiere un objeto error en tiempo de ejecusion
   
 strRutaYNombreArchivo = strRuta & strNombreArchivo
    If FileExists(strRutaYNombreArchivo) Then
        MsgBox "Encontré el archivo", vbExclamation
    Else
        MsgBox "No encontré el archivo", vbExclamation
    End If

End Sub

Public Function FileExists(sFile As String) As Boolean
    ' Tests for file existence
    If sFile = "" Then
        FileExists = False
    End If
    On Error Resume Next
    FileExists = ((GetAttr(sFile) And vbDirectory) = 0)
   
End Function

lo marco con rojo es el error, pero si lo pongo entre comillas dobles "txtNombreArchivo.Text" me dice siempre que no se encontro el archivo.

ahora otra cosa no quiero que me diga si lo encontro o no, quiero que me lo muestre en un lisBox ya he tratado con otro codigo pero no pasa de ahi diciendome que no se encontro el archivo.

gracias.

cpmario:
Te explicaba que tenías que hacer un texbox en la forma que estás usando.

--- Citar ---Supón que la caja de texto donde escribes el nombre del archivo que deseas buscar se llama txtNombreArchivo entonces escribes en lugar de:
--- Fin de la cita ---
Si no tienes un texbox llamado txtNombreArchivo se mostrará un error como el que dices.
Te recomiendo volver a leer el tutorial que tengas de VB.
 :comp:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior