文件夹过滤

Question

我在备份文件的时候，有几个文件夹不需要备份，怎样把这几个文件夹过滤了那？
代码：
 path:=Edit3.Text;//得到备份文件所在路径
  FillChar(Buf, sizeof(Buf), #0) ;
  p := @buf;
  p := StrECopy(p, pchar(path+'\*.*'))+1;
  sDest :=pchar( 'D:\试验OPERVIEW');//目的文件夹
  FillChar(Fos, sizeof(Fos), #0) ;
  with Fos do
  begin
    Wnd := Handle;
    wFunc := FO_COPY;
    pFrom := @Buf;
    pTo := pchar(sDest);
    fFlags := 0;
  end;
   if ((SHFileOperation(Fos) <> 0) or
    (Fos.fAnyOperationsAborted <> false)) then
   ShowMessage('操作被用户取消了')

Answer 1

标题的问题解决了。
我这样怎么删除不了文件夹啊？
var
    P,sPath:   String;
    T:TSHFileOpStruct;
begin
  spath:= Edit4.Text;
  P:=pchar(spath);
  with T do
  begin
    Wnd:=0;
    wFunc:=FO_DELETE;
    pFrom:=PChar(P);
    pTo:=nil;
    fFlags:=FOF_ALLOWUNDO+FOF_NOERRORUI;
    hNameMappings:=nil;
    lpszProgressTitle:='正在删除文件夹';
    fAnyOperationsAborted:=False;
  end;
  SHFileOperation(T);
end;