[jmlifi]

Acabo de introducir:

Código Delphi [-]
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:

Código Delphi [-]
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?