获取指定目录下的所有文件名，包括子目录函数

获取指定目录下所有文件名，这是一个一个目录遍历的方法：

function TPathWatch.FList(ASourFile: string): TStrings;    // 查找子目录  AStrings存放查找出路径， ASourceFile要查找的目录
var
	sour_path, sour_file: string;   // 源路径，源文件名类型
	TmpList: TStringList;
	FileRec, subFileRec: TSearchrec;
	i: Integer;
begin
	Result := TStringList.Create; 　　// 在函数内，result是不需要释放的，在调用时，定义的对象已经释放
	
	sour_file := '*.*';   // 任何文件类型   可以自己选择指定的文件类型
	if copy(ASourFile, Length(ASourFile), 1) <> '\' then          // 在路径后面加上反斜杠
		sour_path := IncludeTrailingPathDelimiter(Trim(ASourFile)) 
	else
		sour_path := Trim(ASourFile);

	if not DirectoryExists(sour_path) then
	begin
		Result.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
					FList(sour_path);
			end;
		until FindNext(FileRec) <> 0;
	FindClose(FileRec);

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

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

	TmpList.Free;
end;

然后在XE下，我发现了更好的方法，上面这种方法一个个循环，看着就很麻烦，在XE中的IOUtils的TDirectory和TFile单元已经帮忙解决了：

procedure TForm2.SpeedButton5Click(Sender: TObject);
var
	a: TStringDynArray;
	i: Integer;
begin
	
	a:=IOUtils.TDirectory.GetFiles('d:\zzz',TSearchOption.soAllDirectories,nil);    // 获取一个目录下所有文件名，包括子目录

	for i:=0 to Length(a)-1 do begin
		Log(
			a[i]+' 	'+
			'GetCreationTime:'  +DateTimeToStr(IOUtils.TFile.GetCreationTime  (a[i]))+ ' 	' +
			'GetLastAccessTime:'+DateTimeToStr(IOUtils.TFile.GetLastAccessTime(a[i]))+ ' 	' +
			'GetLastWriteTime:' +DateTimeToStr(IOUtils.TFile.GetLastWriteTime (a[i]))+ ' 	' +
			' '
		);
	end;
end;

 写成函数，返回值为TStrings，可带时间戳，可不带

function FList(ASourFile: string; TimeState: Boolean = False): TStrings;
var
	a: TStringDynArray;
	i: integer;
begin
	result := TStringList.Create;
	if TimeState = True then 
	begin
		a := IOUtils.TDirectory.GetFiles(ASourFile,TSearchOption.soAllDirectories,nil);    // 获取一个目录下所有文件名，包括子目录
		for i := 0 to Length(a)-1 do
			result.add(a[i] + ':' + DateTimeToStr(IOUtils.TFile.GetCreationTime(a[i])));  // 文件名 + 创建时间	
	end else
	begin
		a := IOUtils.TDirectory.GetFiles(ASourFile,TSearchOption.soAllDirectories,nil);    // 获取一个目录下所有文件名，包括子目录
		for i := 0 to Length(a)-1 do
			result.add(a[i]);  // 文件名 + 创建时间				
	end;

获取文件创建时间： 只到当天

procedure TForm2.SpeedButton4Click(Sender: TObject);
var
	DateTime: TDateTime;
begin
	FileAge('D:\AAA.txt', DateTime);
	ShowMessage(DateTimeToStr(DateTime));
end;

 

转载于:https://www.cnblogs.com/studypanp/p/5032285.html