请问，如何在delphi中获取指定路径下的文件夹的名称？

Question

需要将文件夹的名称放入到一个ComboBox中。如果用Directorylistbox的话，就会产生从第几个index取的问题？

Answer 1

用FindFirst和FindNext, 再加上递归法.....

Answer 2

var
  searchRec:TsearchRec;
  path:string;
begin
  ComboBox1.items.clear;
  if (FindFirst(path+'*.*', faAnyFile, SearchRec)=0) then
  begin
     Repeat
       comboBox1.Items.Add(SearchRec.name);
     until FindNext(SearchRec) <> 0
  end;
FindClose(SearchRec);
end;