Programación General > Visual Basic 6.0 e inferiores

 programa de archivos en visual basic

(1/3) > >>

esme1286:
Hola, bueno yo quiero hacer un programa para buscar archivos por ejemplo, en un texBox poner el nombre del archivo que quiero buscar y tener un commandButton de buscar y ahi es la accion, quiero buscarlo en una ruta especifica los archivos son .pdf ya tengo el codigo para despues de encontrarlos abrirlo, peor mi problema es que no puedo hacerlo asi como quiero.

he logrado hacerlo de la manera en que elijo una ruta y depsues pongo el nombre del archivo y ya lo busca y lo encuentra si existe pero yo quieroq ue busque en una ruta especifica.

espero me puedan ayudar gracias.

cpmario:
No se entiende lo que deseas. Repite la pregunta y coloca algo de tu código.
 :comp:

esme1286:
Hola, bueno pues me vuelvo a explicar yo lo que quiero es que al poner el nombre del archivo existente en un directorio ejemplo D:MIS DOCUMENTOS\LIBROS ahi es donde tengo todos mis libros y quiero que de ahi me vaya buscando los libros que yo quiera encontrar por decir si en la caja de texto pongo el nombre del libro ALGORITMOS y depsues que le de en buscar me lo busque en esa ruta y depsues con otro boton de abrir pueda yo abrir el archivo espero y me haya entendido bien.

lo que tengo es seleccionando la ruta donde quiero encontrar el archivo y yo no quiero eso asi, yo nadamas quiero poner el nombre del archivo y que automaticamente me lo busque en la ruta que le debo especificar aqui tienes el codigo que tengo.

Private Sub cmdBrowserFolder_Click()
    txtPath.Text = cFind.BrowseForFolder(Me.hWnd, "D:MIS DOCUMENTOSLIBROS ")
End Sub

Private Sub cmdFind_Click()
 
    If txtPath.Text = "D:MIS DOCUMENTOSMIS ARCHIVOSSOFTWARELIBROS Y SERIALES DE SOFTWARE" Then (esto si lo pongo asi no me funciona)
        MsgBox "seleccione una unidad o directorio donde buscar", vbExclamation
        Exit Sub
    End If
 
End Sub

cpmario:
Espero lo siguiente resuelva tu duda.

--- Código: Text ---    Dim strRuta As String    Dim strNombreArchivo As String    Dim strRutaYNombreArchivo As String        strRuta = "D:MIS DOCUMENTOSLIBROS" 'Ruta donde tienes los libros    strNombreArchivo = "ALGORITMOS.PDF"    strRutaYNombreArchivo = strRuta & strNombreArchivo    If FileExists Then        MsgBox "Encontré el archivo", vbExclamation    Else        MsgBox "No encontré el archivo", vbExclamation    End If 
--- Código: Text ---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  :comp:

esme1286:
Hola, bueno si esta bien pero lo que pasa es que ya tu pones el nombre del archivo que sera buscado ya lo coloque en mi programa pero solo me dice no encontre el archivo, yo lo que quiero es que dependiendo del nombre que escriba en una caja de texto me diga si existe ese nombre en la carpeta donde tengo mis libros guardados mas no poner el nombre especificando cual se buscara, no logro encontrar nada a como lo quiero hacer, espero me entiendas gracias.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente