請問如何取得某一資料夾下所有子資料夾的名稱(不包括檔案 及更下層的資料夾)

will 您好 :    請參考以下片段的 code    

var
  SearchRec: TSearchRec;    //-----------------------------------------        Status := FindFirst(sDir   '*.*', faDirectory, SearchRec);        while Status = 0 do
    begin       
      Status := FindNext(SearchRec);
    end;        FindClose(SearchRec);

主要是利用 FindFirst , FindNext ,FindClose ,得到第一層目錄.. 如果要繼續找其下子目錄,只要再寫個遞迴式就可以達成了... ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ---- 發表人 - SouthWind 於 2004/02/29 13:44:26