想請問一下： 我如何抓出指定路徑下的所有資料夾名稱？ 不是檔案名稱哦！ 麻煩各位先進不吝指教

procedure TTKS_FOlderOp.DirList(const sFolderName: String;
                             FileList:TStrings);
var
  srec :  TSearchRec;
  sCurDelFolder : String;
begin
  sCurDelFolder := IncludeTrailingBackslash(sFolderName);
  if FindFirst(sCurDelFolder    ExtName , faAnyFile ,srec ) = 0 then begin
    Repeat
      // *********[XX Begin] **************
      if (srec.Name <> '.') and (srec.Name <> '..') then begin
        if srec.Attr = faDirectory then begin
          FileList.Add(sCurDelFolder srec.Name);
        end;
      end;
      // *********[XX End] **************
    until FindNext(srec) <> 0;
    FindClose(srec);
  end;
end;

不好意思： 想再問清楚一點 if FindFirst(sCurDelFolder ExtName , faAnyFile ,srec ) = 0 then 中的sCurDelFolder 、ExtName 、faAnyFile 、 srec 各是代表什麼意思呢？

你可以參考一下Delphi中的Help, 裡頭有"FindFirst"的介紹。 不好意思, 因為是臨時打的, 第一個參數就是指定你要的目錄, 第二個參數可以設成faDirectory, 因為你只需要目錄資料, 第三個參數是用來接收搜尋的內容, 其他的你可以讀一下Help裡的範例, 應該會比較清楚。 以上內容希望對你有幫助。

經過你的解釋，再看HELP就清楚多了 真的很感謝！