两个delphi下遍历指定目录下指定类型文件的函数
来源:互联网 发布:大学抢课用什么软件 编辑:程序博客网 时间:2024/05/21 11:33
// ================================================================
// 遍历某个文件夹下某种文件,
// 使用说明
// _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;
SysUtils.FindClose(FileRec);
for i := 0 to TmpList.Count -1 do
AStrings.Add(TmpList.Strings[i]);
TmpList.Free;
end;
- 两个delphi下遍历指定目录下指定类型文件的函数
- 两个delphi下遍历指定目录下指定类型文件的函数
- 两个delphi下遍历指定目录下指定类型文件的函数
- delphi遍历指定目录下指定类型文件的函数
- 遍历指定目录下指定类型文件的函数
- 遍历指定目录下指定类型文件的方法集锦
- 转载遍历指定目录下所有指定类型的文件
- MFC 遍历目录下指定类型的文件并复制
- 遍历目录下的指定扩展名文件的函数
- VC 遍历指定目录下的文件
- 遍历指定目录下的所有文件
- Delphi 计算指定目录下所有文件的大小(遍历文件夹所有文件及目录)
- 遍历指定目录下指定格式的文件
- 使用QDir遍历指定目录下的指定文件
- 遍历读取指定文件夹下指定类型的所有文件
- 遍历读取指定文件夹下指定类型的所有文件
- 获取指定目录下的指定类型的文件
- 删除指定目录下指定类型的文件
- 我为什么要骑车回家(转)
- [SQLServer JDBC Driver]Error establishing socket. Connection refused: connect
- 编程随笔
- GKA(Group Key Agreement) 前言
- 【归来】回来上班,重返网络
- 两个delphi下遍历指定目录下指定类型文件的函数
- JavaServer Faces (JSF) vs Struts
- 遍历整个目录树查找文件
- 中国缺乏真正CIO (zt)
- 今天中午看到的几个哲学小故事
- 【问题】究竟什么是MVC
- 2005/2.17/雨
- 第八讲 Java网络编程
- 小布丁是猪~~~~~