Path de un Archivo

[Neftali [Germán.Estévez]]

En el truco 82 (sección de trucos) tienes como hacer una búsqueda de un fichero.

[gilberto_1126]

Gracias Neftali por tu ayuda.
Pero tengo un pequeño inconveniente. Al no saber donde tengo el archivo, y como hoy puedes particionar varias veces, Como puedo iniciar la busqueda desde Mi PC, para que me haga la busqueda en todas las unidades del disco.

en la seccion BuscarArchivos('c:\', 'inirep.avi', faAnyFile, lista);

ya lo intente con

BuscarArchivos('Mi pc', 'inirep.avi', faAnyFile, lista);
BuscarArchivos('*', 'inirep.avi', faAnyFile, lista);
BuscarArchivos('\Reparar\', 'inirep.avi', faAnyFile, lista);

No se si me he explicado bien

[[seoane]]

Siguiendo con el ejemplo que aparece en el truco 82, si queremos realizar la búsqueda sobre todos los discos duros, seria algo así:

Código Delphi [-]
var
  Lista: TStrings;
  Letra: Char;
begin
  Lista := TStringList.Create;
  try
    for Letra:= 'A' to 'Z' do
      if GetDriveType(Pchar(Letra+':\')) = DRIVE_FIXED  then
        BuscarArchivos(Letra+':\', '*.exe', faAnyFile, lista);
    ShowMessage(lista.Text);
  finally
    Lista.Free;
  end;
end;