He encontrado esta función que es más completa y mucho más técnica que la que tengo hecha. Pero al pasarla a Visual Studio he tenido que cambiar algunas lineas de código, sin embargo me da un error que no consigo entender ya que consigo encontrar información sobre el mismo. Les pongo el código para ver si alguna persona puede prestarme ayuda.

Public Function BuscarArchivo(ArchivoBuscado As String) As String
Try
Dim sDir As String, lRet As Long
Dim lDrive As Long, sDrive As String, i As Integer
'Screen.MousePointer = vbHourglass
Cursor.Current = Cursors.WaitCursor
lDrive = GetLogicalDrives
For i = 0 To 25
' buscar en todas las unidades
If (lDrive And CLng((2 ^ i))) <> 0 Then
sDrive = Convert.ToChar(65 + i) & ":\"
sDir = Convert.ToString(260, 0) 'El error que da es: "Base no válida"
lRet = SearchTreeForFile(sDrive, ArchivoBuscado, sDir)
If lRet <> 0 Then
BuscarArchivo = Left$(sDir, InStr(1, sDir, Convert.ToChar(0)) - 1)
Exit For
End If
End If
Next i
If lRet = 0 Then BuscarArchivo = "No encontrado"
Cursor.Current = Cursors.Default
'Screen.MousePointer = vbDefault
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function

Un saludo y gracias

Hola.

Convert.ToString(260,0) debe ser Convert.ToString(260). Aunque realmente no entiento para que haces eso.


La explicacion de porque falla:
https://msdn.microsoft.com/es-es/lib...vs.110%29.aspx

hola, buenas noches , como ingreso este codigo, como un modulo ?? o como una clase?? o en un boton? en visual basic 2010

Iniciado por jhon1

hola, buenas noches , como ingreso este codigo, como un modulo ?? o como una clase?? o en un boton? en visual basic 2010

Ese codigo no sirve para nada ya que falta el codigo de la funcion SearchTreeForFile

Yo había probado ya con (260) pero entonces el problema se traslada a la línea
BuscarArchivo = Left$(sDir, InStr(1, sDir, Convert.ToChar(0)) - 1) 'El programa se bloquea.

Por qué hago esto es por la razón de que yo utilizo una función para buscar un fichero, pero le tengo también que dar el Path, por lo que adelanto más poniendo el Path + nombre fichero. Y esta función lo que le vea de interesante es que es capaz de darte el path donde se encuentra dicho fichero, además en cualquier unidad que tengas en uso.
En definitiva busco una función más práctica que la que yo he hecho para darme la ubicación de un fichero cualquiera.

Muchas gracias y un saludo.

No puedo decir nada al respecto, vi que la función buscaba un fichero en cualquier unidad con dar solo el nombre y te retorna el Path completo de su ubicación. La veo mejor que el sistema que yo tengo hecho que es dar el Path + fichero, pero no es una función que puedes hacer de ella una DLL.
En definitiva busco una función más práctica que la que yo he hecho para darme la ubicación de un fichero cualquiera.

Muchas gracias y un saludo

Este código no puedes ponerlo en un módulo ya que al tener un DAtaGridView, te daría problemas ya que no lo identificaría. Así que tienes que ponerlo en el Formulario en el que te encuentras.
Para usar este código puedes crearte un TextBox en el cual tecleas el valor a filtrar. Esto tienes que ponerlo dentro de un "KeyPress" y le pasas el carácter tecleado a la función BuscarDato() que te puse. Esto lo que te hace es ir filtrando los datos del DataGridView según tecleas.

Espero que la explicación te sea útil y lo pongas a funcionar.

Un saludo

Ha que código te refieres?