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.

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

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