delphi 获取一个文件夹下的一级目录

本文整理自网络，侵删。

 
function TForm1.GetFolders(MainPath:string):TStringList;
var
  SearchRec: TSearchRec;
  sMainpath: String;
  list:TStringList;
begin
  list:=TStringList.Create;
  if MainPath[Length(MainPath)]='\' then  sMainpath:=MainPath
  else sMainpath:=MainPath+'\';
  FindFirst(sMainPath+'*.*',faDirectory,SearchRec);
  if SearchRec.Name<>'' then
  begin
    if (SearchRec.Attr and faDirectory)=faDirectory then
      if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
         list.Add(SearchRec.Name);
    while  (FindNext(SearchRec)=0) do
    begin
      if (SearchRec.Attr and faDirectory)=faDirectory then
        if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
          list.Add(SearchRec.Name);
    end;
  end;
  Result:=list;
end;
 

相关阅读 >>

Delphi 下找到目录中的所有文件夹

Delphi 安卓获得设备 id

Delphi 的运算符重载

Delphi 读取文件获取指定字符串

Delphi webbrowser有关技术

Delphi 查看 dll 的输出函数列表

Delphi 简单判断程序30秒没有键盘和鼠标动作

Delphi 查找某目录下的特定文件

Delphi tpicture 和 tbitmap 的相互转换

Delphi 调用api.ocr.space的ocr接口

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取一个文件夹下的一级目录