PDA

Ver la Versión Completa : Mostrar sólo archivos .pdf en un ShellListView

jmlifi
09-06-2006, 15:30:42
¿cómo puedo mostrar en un ShellListView sólo archivos con extension pdf que están por ejemplo en "c:\activa"?
dec
09-06-2006, 17:24:13
Hola,

¿Y no te vendría mejor utilizar el componente "TFileListBox" que tiene su propiedad "Mask" y todo?

Lo encontrarás en la pestaña "Win 3.1" de la paleta de componentes de Delphi, si quieres probarlo. :)
jmlifi
09-06-2006, 17:50:00
Otra pregunta... ¿cómo hago parar mostrar los archivos que empiecen por una cadena de caracteres? por ejemplo todo lo que empiece por "b1":
b1werwe.pdf
b1qq.txt
b1222.dwg
roman
09-06-2006, 19:39:46
Lo encontrarás en la pestaña "Win 3.1"

Por un momento pensé que dirías que podía encontrarlo en el túnel del tiempo :D

Puede usar el evento OnAddFolder del ShellListView:


procedure TForm1.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := ExtractFileExt(AFolder.DisplayName) = '.pdf';
end;


// Saludos
dec
09-06-2006, 20:05:17
Hola,


Otra pregunta... ¿cómo hago parar mostrar los archivos que empiecen por una cadena de caracteres? por ejemplo todo lo que empiece por "b1":


¿Ya empezamos a complicar el asunto? :D
roman
09-06-2006, 20:16:56
CanAdd := Copy(AFolder.DisplayName, 1, 2) = 'b1';


// saludos
dec
09-06-2006, 20:57:42
Hola,


CanAdd := (Copy(AFolder.DisplayName, 1, 2) = 'b1')
and (ExtractFileExt(AFolder.DisplayName) = '.pdf');


:D
Lepe
10-06-2006, 12:36:09
Hola,


CanAdd := (Copy(AFolder.DisplayName, 1, 2) = 'b1')
and (ExtractFileExt(AFolder.DisplayName) = '.pdf');


:D

OFFTOPIC: Falta una carita en estos foros que me encanta usar: es uno de color rojo, sonriendo malvadamente, con dos colmillos chupasangres y cuernos. Además serían 12 caritas y ocuparía el hueco de la derecha :p (sería este más o menos (http://www.emoticones.com/serio/demonio-tridente.gif))

Yo diría: Dec, te pasaste de listo (la carita va aquí), no tiene por qué ser un pdf Y empezar con b1, fijate que hay un archivo .txt que empieza con "b1" jejeje

Saludos.
jmlifi
12-06-2006, 10:13:56
Acabo de introducir:

procedure TForm1.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := Copy(AFolder.DisplayName, 1, 2) = 'b1';
end;


Tengo el ShellListView dentro de un page control y el siguiente código:
procedure TPzEdFrm.PageControl1Change(Sender: TObject);
var
Path : String;
begin
if(PageControl1.ActivePage).PageIndex=2 then begin
Path := Principal.AdjPiezasPath;
ShellListView1.Root := Path;
ShellListView1.Enabled := true;
ShellListView1.Visible := true;
end;
end;

Quiero Mostrar sólo los archivos que empiecen por "b1" y que esten en el directorio Path.

¿Qué es lo que falla?