Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   mostrar ficheros de un directorio (https://www.clubdelphi.com/foros/showthread.php?t=83555)

jsc 30-06-2013 01:26:15

mostrar ficheros de un directorio
 
hola,

quisiera saber si existe alguna función o manera de listar en un shelllistview los archivos de un directorio siempre y cuando el nombre coincida con el parametro que se le pase
es decir, una especia de lo que seria el comando DIR en msdos
Código:

DIR *fich.*
si tengo un edit1.text y un shelllistview
Código:

edit1.text := '*fichero1*';
shelllistview1.Root := ExtractFilePath (Application.ExeName)+'\documentos\';

al pulsar button1 por ejemplo que buscaria dentro de la ruta que hemos especificado y MOSTRARIA en el shelllistview los documentos cuyo nombre coincida con el parametro edit1.text


gracias de antemano
saludos

ecfisa 30-06-2013 02:55:21

Hola jsc.

Fijate si asi te sirve:
Código Delphi [-]
...
implementation 

var
 GMask: string = '*.*';

// Evento OnAddFolder
procedure TForm1.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
var
  Found : string;
begin
  if GMask <> '*.*' then
  begin
    GMask  := UpperCase(StringReplace(GMask, '*', '', [rfReplaceAll]));
    Found  := UpperCase(ExtractFileName(AFolder.PathName));
    CanAdd := Pos(GMask, Found) <> 0;
  end;
end;

Llamada ejemplo:
Código Delphi [-]
begin
  GMask := '*fich.*';
  ShellListView1.Refresh;
end;

Saludos :)

jsc 30-06-2013 05:48:07

gracias ecfisa,

a simple vista es lo que necesito; lo único una cuestión.

hay manera de buscar el fichero en cuestión dentro de las subcarpetas que tuviera el directorio?
al parecer solo buscar dentro de un directorio que se le especifique, pero si este tiene subdirectorios, por lo que he podido observar no muestra los archivos que coincidan con el nombre que se le pase. Esto se podria solucionar ?

gracias otra vez


La franja horaria es GMT +2. Ahora son las 08:46:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi