Busqueda de un archivo
rtika
07 de Enero del 2004
Hola a todos,
mi pregunta es la siguiente: c贸mo puedo buscar un archivo, que de entrada se que es 煤nico, en el disco duro. He estado viendo las funciones "Dir" y "Find" pero no he conseguido hacer que funcione. Muchas gracias de antenamo.
mi pregunta es la siguiente: c贸mo puedo buscar un archivo, que de entrada se que es 煤nico, en el disco duro. He estado viendo las funciones "Dir" y "Find" pero no he conseguido hacer que funcione. Muchas gracias de antenamo.
sdemingo
07 de Enero del 2004
Buena pregunta......
La verdad es que nunca me lo hab铆a planteado.
No me suena que exista ninguna funci贸n que haga lo que tu quieres, pero yo lo har铆a recorriendo todas las carpetas de cada una de las unidades que tengas y dentro de ellas preguntado por fs.fileexists.
Para hacer esto, puedes utilizar objetos Drive, objetos Folder y objetos de tipo File. Preguntaras a fs.FileExists si existe cada uno de los objetos files que vayas recorriendo.
Realmente son tres bucles, pero puede llegar a tardar mucho dependiendo de la cantidad de informaci贸n que tengas guardada en tu pc.
Saludos y suerte
sdemingo
La verdad es que nunca me lo hab铆a planteado.
No me suena que exista ninguna funci贸n que haga lo que tu quieres, pero yo lo har铆a recorriendo todas las carpetas de cada una de las unidades que tengas y dentro de ellas preguntado por fs.fileexists.
Para hacer esto, puedes utilizar objetos Drive, objetos Folder y objetos de tipo File. Preguntaras a fs.FileExists si existe cada uno de los objetos files que vayas recorriendo.
Realmente son tres bucles, pero puede llegar a tardar mucho dependiendo de la cantidad de informaci贸n que tengas guardada en tu pc.
Saludos y suerte
sdemingo
sdemingo
07 de Enero del 2004
O si es para que lo busque el usuario, tambi茅n puedes hacerlo as铆....
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
Call ShellExecute(hWnd, "Find", _
sPath, _
vbNullString, vbNullString, _
SW_SHOWNORMAL)
End Sub
Saludos
sdemingo
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
Call ShellExecute(hWnd, "Find", _
sPath, _
vbNullString, vbNullString, _
SW_SHOWNORMAL)
End Sub
Saludos
sdemingo