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;
 

相关阅读 >>

crc32.pas 第二版

Delphi idhttp登录网站教程代码

Delphi memo1 高亮行的范围

Delphi 验证tstrings是否存在

Delphi将文件的内容读取为字符串

Delphi 禁止截屏printscreen

dephi获取系统常量

Delphi snowflake一秒可生成500万id的分布式自增id算法―雪花算法

Delphi 获取局域网所有ip

Delphi 语法基础: 使用不同的数据类型标记数组

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

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