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;
 

相关阅读 >>

Delphi2010 的自带的内存泄漏检测

Delphi 切换大小写的例子

Delphi 过滤字符串特殊符号的函数

Delphi实现身份证号码15到18位升位算法

Delphi 申请管理员权限级别

Delphi 实现打开文件定位

Delphi遍历文件目录

Delphi 系统服务状态获取管理员用户名

Delphi stringgrid 实例3： 本例功能: 1、修改 tstringgrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值.

Delphi 调用cmd命令行并取得返回结果

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

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