How to exclude folder and subfolder in Tfilefind

[mycwcgr]

I use Tfilefind VCL,could you tell me how to exculde some files in a folder and its subfolder?

Sample:
I want to exclude ALL directories and files below the 'My Pictures' one, not just files inside of 'My Pictures'.
After I set filefind1.Excluded.add('c:\My Pictures\*.*'), the files in 'c:\My Pictures\cw\' and 'c:\My Pictures\cgr\' will not be excluded

[Kambiz]

Instead of the Excluded property you should use the OnFolderChange event. The Excluded property is for filtring files, not folders.

[mycwcgr]

Could you give me a sample about how to use OnFolderChange event to exclude folder?

[Kambiz]

Code: Select all

procedure TForm1.FindFile1FolderChange(Sender: TObject;
  const Folder: String; var IgnoreFolder: TFolderIgnore);
begin
  if Pos('c:\my pictures\', LowerCase(Folder)) = 1 then
    IgnoreFolder := True;
end;