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;
 

相关阅读 >>

shellexecute的多种用法

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphi 中的颜色常量及效果图

Delphi textfile读取文本文件

Delphi adoquery查询，如何得到查询记录数？

Delphi获取ie浏览器url地址

Delphi抓屏代码

Delphi thttpclient posturl

Delphi fmx手机app，如何下载网站图片而不卡界面

Delphi filecreate 建立新文件

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

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