文档章节

遍历指定目录下指定类型文件的函数

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 248
阅读 3
收藏 0
点赞 0
评论 0
// ================================================================
// 遍历某个文件夹下某种文件,
// 使用说明
//       _GetFileList(ListBox1.Items,'c:\*.doc');
//           _GetFileList(MyTStringList,'c:\*.exe');
// ================================================================
procedure TForm1._GetFileList(AStrings: TStrings ; ASourFile: string);
var sour_path,sour_file: string;
    TmpList:TStringList;
    FileRec:TSearchrec;
begin

   sour_path:=ExtractFilePath(ASourFile);
   sour_file:=ExtractFileName(ASourFile);

   if not DirectoryExists(sour_path) then
   begin
     AStrings.Clear;
     exit;
   end;

   TmpList:=TStringList.Create;
   TmpList.Clear;

   if FindFirst(sour_path+sour_file,faAnyfile,FileRec) = 0 then
   repeat
      if ((FileRec.Attr and faDirectory) = 0) then
         begin
           TmpList.Add(sour_path+FileRec.Name)
         end;
   until FindNext(FileRec)<>0;

   SysUtils.FindClose(FileRec);

   AStrings.Assign(TmpList);

   TmpList.Free;
end;

// ================================================================
// 遍历某个文件夹及子文件夹下某种文件,
// 使用说明
//       _GetFileList(ListBox1.Items, 'c:\', '*.doc');
//           _GetFileList(MyTStringList, 'c:\', '*.exe');
// ================================================================
procedure _GetFileList(AStrings: TStrings; ASourFile,
  FileName: string);
var sour_path,sour_file: string;
    TmpList:TStringList;
    FileRec, subFileRec:TSearchrec;
    i: Integer;
begin
   if rightStr(trim(ASourFile), 1) <> '\' then
     sour_path :=trim(ASourFile) + '\'
   else
     sour_path :=trim(ASourFile);
   sour_file:= FileName;

   if not DirectoryExists(sour_path) then
   begin
     AStrings.Clear;
     exit;
   end;

   TmpList:=TStringList.Create;
   TmpList.Clear;

   if FindFirst(sour_path+'*.*',faAnyfile,FileRec) = 0 then
   repeat
      if ((FileRec.Attr and faDirectory) <> 0) then
         begin
           if ((FileRec.Name<> '.') and (FileRec.Name  <> '..')) then
             _GetFileList(AStrings, sour_path+ FileRec.Name + '\',  sour_file);
         end
      else
        if FindFirst(sour_path + FileName,faAnyfile,subFileRec) = 0 then
        repeat
          if ((subFileRec.Attr and faDirectory) = 0) then
            TmpList.Add(sour_path+subFileRec.Name);
        until FindNext(subFileRec)<>0;

   until FindNext(FileRec)<>0;

   FindClose(FileRec);
   for i := 0 to TmpList.Count -1 do
     AStrings.Add(TmpList.Strings[i]);

   TmpList.Free;
end;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2007/11/21/967085.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
用C++遍历目录

-------------------------------------------------------------------------------- ---- 所谓遍历目录,就是给定一个目录,访问其中的所有文件(包括子目录下的文件)。迭代是比较常用的遍历...

雨清 ⋅ 2011/07/06 ⋅ 0

Python实现批量解析PDF文件提取内容并写入到Excel中

摘要:最近需要将一批PDF文件中的某些数据整理到Excel中,因为文件数量接近20w+,手动更新几乎不现实,于是就提取关键词和内容动手写了个Python小工具,以实现自动完成上述目标。 要求: 基本...

_周小董 ⋅ 05/20 ⋅ 0

按字典值排序--找出大小最大的十个文件

问题分析: 需要确认某路径下所有文件的大小 需要排序,找出最大的十个 以字典的形式保存数据 准备知识: operator模块: fun = operator.itemgetter(1), fun 是一个由operator.itemgetter(1...

hello_cjq ⋅ 2016/10/15 ⋅ 0

C#遍历指定文件夹中的所有文件

C#遍历指定文件夹中的所有文件DirectoryInfo TheFolder=new DirectoryInfo(folderFullName);//遍历文件夹foreach(DirectoryInfo NextFolder in TheFolder.GetDirectories())this.listBox1.It......

vga ⋅ 2016/08/06 ⋅ 2

C# 遍历指定文件夹中的所有文件

如何获取指定目录包含的文件和子目录 DirectoryInfo.GetFiles() //获取目录中(不包含子目录)的文件,返回类型为FileInfo[],支持通配符查找; DirectoryInfo.GetDirectories() //获取目录(...

Contac ⋅ 2016/07/25 ⋅ 0

python—函数实例2

一、递归 几种常用内置函数方法: 1)os.listdir():列出第一层目录文件 In [14]: os.listdir("/root/python")Out[14]:['20.py','1.py','19.py','21.py'] 2)os.path.isdir():判断是不是目录...

huangzp168 ⋅ 2017/12/02 ⋅ 0

Python 文件和目录管理(os)

简述 目录(或文件夹)是文件和子目录的集合 在 Linux 中,操作系统提供了很多的命令(例如:、),用于文件和目录管理。在 Python 中,有一个 模块,也提供了许多便利的方法来管理文件和目录...

u011012932 ⋅ 2017/10/12 ⋅ 0

二叉查找树C语言实现及其可视化

0, 二叉搜索树的定义:(二叉查找树)(二叉排序树) (1)若左子树非空,则左子树上的所有的节点的值都小于根节点的值 (2)若右子树非空,则右子树上的所有的节点的值都大于根节点的值 (3)其...

robin_Xu_shuai ⋅ 2016/11/30 ⋅ 0

Python之os.walk和os.path.walk

一、os.walk() 函数声明:os.walk(top,topdown=True,onerror=None) (1)参数top表示需要遍历的顶级目录的路径。 (2)参数topdown的默认值是“True”表示首先返回顶级目录下的文件,然后再遍历子...

duhaizhang ⋅ 2012/07/20 ⋅ 0

C++获取一个文件夹下的所有文件名(转)

C++获取一个文件夹下的所有文件名 window + vs2005: #ifndef FUNCH #define FUNCH #include #include #include #include using namespace std; vector & getfilelist(char *foldname) { vec......

云栖希望。 ⋅ 2017/12/10 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

个人博客的运营模式能否学习TMALL天猫质量为上?

心情随笔|个人博客的运营模式能否学习TMALL天猫质量为上? 中国的互联网已经发展了很多年了,记得在十年前,个人博客十分流行,大量的人都在写博客,而且质量还不错,很多高质量的文章都是在...

原创小博客 ⋅ 今天 ⋅ 0

JavaScript零基础入门——(十一)JavaScript的DOM操作

JavaScript零基础入门——(十一)JavaScript的DOM操作 大家好,欢迎回到我们的JavaScript零基础入门。最近有些同学问我说,我讲的的比书上的精简不少。其实呢,我主要讲的是我在开发中经常会...

JandenMa ⋅ 今天 ⋅ 0

volatile和synchronized的区别

volatile和synchronized的区别 在讲这个之前需要先了解下JMM(Java memory Model :java内存模型):并发过程中如何处理可见性、原子性、有序性的问题--建立JMM模型 详情请看:https://baike.b...

MarinJ_Shao ⋅ 今天 ⋅ 0

深入分析Kubernetes Critical Pod(一)

Author: xidianwangtao@gmail.com 摘要:大家在部署Kubernetes集群AddOn组件的时候,经常会看到Annotation scheduler.alpha.kubernetes.io/critical-pod"="",以表示这是一个关键服务,那你知...

WaltonWang ⋅ 今天 ⋅ 0

原子性 - synchronized关键词

原子性概念 原子性提供了程序的互斥操作,同一时刻只能有一个线程能对某块代码进行操作。 原子性的实现方式 在jdk中,原子性的实现方式主要分为: synchronized:关键词,它依赖于JVM,保证了同...

dotleo ⋅ 今天 ⋅ 0

【2018.06.22学习笔记】【linux高级知识 14.4-15.3】

14.4 exportfs命令 14.5 NFS客户端问题 15.1 FTP介绍 15.2/15.3 使用vsftpd搭建ftp

lgsxp ⋅ 今天 ⋅ 0

JeeSite 4.0 功能权限管理基础(Shiro)

Shiro是Apache的一个开源框架,是一个权限管理的框架,实现用户认证、用户授权等。 只要有用户参与一般都要有权限管理,权限管理实现对用户访问系统的控制,按照安全规则或者安全策略控制用户...

ThinkGem ⋅ 昨天 ⋅ 0

python f-string 字符串格式化

主要内容 从Python 3.6开始,f-string是格式化字符串的一种很好的新方法。与其他格式化方式相比,它们不仅更易读,更简洁,不易出错,而且速度更快! 在本文的最后,您将了解如何以及为什么今...

阿豪boy ⋅ 昨天 ⋅ 0

Python实现自动登录站点

如果我们想要实现自动登录,那么我们就需要能够驱动浏览器(比如谷歌浏览器)来实现操作,ChromeDriver 刚好能够帮助我们这一点(非谷歌浏览器的驱动有所不同)。 一、确认软件版本 首先我们...

blackfoxya ⋅ 昨天 ⋅ 0

线性回归原理和实现基本认识

一:介绍 定义:线性回归在假设特证满足线性关系,根据给定的训练数据训练一个模型,并用此模型进行预测。为了了解这个定义,我们先举个简单的例子;我们假设一个线性方程 Y=2x+1, x变量为商...

wangxuwei ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部