Resumen Buscar un archivo para usarlo en un shell

>Cómo hacer que en el form_load de mi aplicación el programa busque en los
>HDs locales que puedan existir un archivo (por ejemplo, para generar una
>barra con accesos directos, que busque la ubicación de los ejecutables de
>algunos programas, estilo Internet Explorer)

En la sección Resumen de mi web hay un artículo titulado "Buscar archivos en el disco" que tiene un zip con una clase enviada por un compañero (con un programa de ejemplo) que busca la primera o todas las ocurrencias de un archivo (admite el uso de * y ? ) a partir de un directorio dado.

Para saber los discos duros que tienes en el PC puedes emplear un función del estilo de (que te devuelve un string con las letras de los discos duros locales) :

Private Declare Function GetDriveType Lib "kernel32" Alias _
       "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _
       "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal _
       lpBuffer As String) As Long
Private Const DRIVE_FIXED = 3

Function DameDiscosDuros() As String
Dim res As Long, allDrives As String, JustOneDrive As String
Dim pos As Long, DriveType As Long, hdDrivers As String

allDrives = Space$(64): hdDrivers = ""
res = GetLogicalDriveStrings(Len(allDrives), allDrives)
allDrives = Left$(allDrives, res)
pos = InStr(allDrives, Chr$(0))
While pos > 0
    JustOneDrive = Left$(allDrives, pos)
    allDrives = Mid$(allDrives, pos + 1, Len(allDrives))
    DriveType = GetDriveType(JustOneDrive)
    If DriveType = DRIVE_FIXED Then hdDrivers = hdDrivers + Left$(JustOneDrive, 1)
    pos = InStr(allDrives, Chr$(0))
Wend
DameDiscosDuros = hdDrivers
End Function



Si haces :
Dim DiscosDuros as string

DiscosDuros = DameDiscosDuros()

No tienes más que llamar a la clase que busca una vez con cada disco pasándole como path cada letra del string (más ":")



Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com