使用FindFirst函数和FindNext函数,可以遍历一个本地路径下的所有文件,包括目录文件的卷文件,文件名过滤条件在path中指定,这个就不多说了,我想说下对参数Attr意义的理解。Attr 参数指定了对查找文件的属性的一个过滤,但这个过滤并不是一个正向的条件,即它的意义并不是说“我要查找×××条件的文件”,而是一个反向的过滤,即是说查找结果中可以包含条件属性的文件,既然是反向条件,那么他的过滤整体范围有多大呢?这个就需要我们看看源码了。 function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; const faSpecial = faHidden or faSysFile or faVolumeID or faDirectory; {$IFDEF MSWINDOWS} begin F.ExcludeAttr := not Attr and faSpecial; F.FindHandle := FindFirstFile(PChar(Path), F.FindData); if F.FindHandle <> INVALID_HANDLE_VALUE then begin Result := FindMatchingFile(F); if Result <> 0 then FindClose(F); end else Result := GetLastError; end; {$ENDIF} {$IFDEF LINUX} begin F.ExcludeAttr := not Attr and faSpecial; F.PathOnly := ExtractFilePath(Path); F.Pattern := ExtractFileName(Path); if F.PathOnly = '' then F.PathOnly := IncludeTrailingPathDelimiter(GetCurrentDir); F.FindHandle := opendir(PChar(F.PathOnly)); if F.FindHandle <> nil then begin Result := FindMatchingFile(F); if Result <> 0 then FindClose(F); end else Result:= GetLastError; end; {$ENDIF} 从这里我们可以看到,在windows系统中,默认的过滤范围是faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;即查找结果中默认不会显示 隐藏文件,系统文件,卷文件和目录文件,如果想在结果中包含这些属性的文件,就需要在Attr中给予明确的指明。 比如,要想查出路径下所有的目录,就需要让Attr至少包含faDirectory的值(Attr参数为整型,各个属性值之间按位与的关系),当然,这样查出来的结果中,也可能会包含一些其他的非目录文件,即只要文件不是 隐藏,系统和卷文件,结果中就会显示。另一方面,如果一个文件虽然是目录文件,但该目录是隐藏的,那么结果中也是不会显示的。总之,如果不是有特别的要求,尽量还是使用faAnyFile参数,将文件查询出来以后再通过TSearchRec的Attr参数做进一步的处理。
查找文件,不会可以看帮助或google
procedure TForm1.Button1Click(Sender: TObject); var TFileInfo:TSearchRec; hFile:HWND; b:Boolean; begin hFile:=FindFirst('G:\\*.exe',faAnyFile,TFileInfo); if hFile=0 then Memo1.Lines.Add('没打开'); Memo1.Lines.Add(TFileInfo.Name); while hFile=0 do begin hFile:=findnext(TFileInfo); Memo1.Lines.Add(TFileInfo.Name); end; end;
var F: TSearchRec): Integer;
const
faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
{$IFDEF MSWINDOWS}
begin
F.ExcludeAttr := not Attr and faSpecial;
F.FindHandle := FindFirstFile(PChar(Path), F.FindData);
if F.FindHandle <> INVALID_HANDLE_VALUE then
begin
Result := FindMatchingFile(F);
if Result <> 0 then FindClose(F);
end else
Result := GetLastError;
end;
{$ENDIF}
{$IFDEF LINUX}
begin
F.ExcludeAttr := not Attr and faSpecial;
F.PathOnly := ExtractFilePath(Path);
F.Pattern := ExtractFileName(Path);
if F.PathOnly = '' then
F.PathOnly := IncludeTrailingPathDelimiter(GetCurrentDir); F.FindHandle := opendir(PChar(F.PathOnly));
if F.FindHandle <> nil then
begin
Result := FindMatchingFile(F);
if Result <> 0 then
FindClose(F);
end
else
Result:= GetLastError;
end;
{$ENDIF} 从这里我们可以看到,在windows系统中,默认的过滤范围是faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;即查找结果中默认不会显示 隐藏文件,系统文件,卷文件和目录文件,如果想在结果中包含这些属性的文件,就需要在Attr中给予明确的指明。 比如,要想查出路径下所有的目录,就需要让Attr至少包含faDirectory的值(Attr参数为整型,各个属性值之间按位与的关系),当然,这样查出来的结果中,也可能会包含一些其他的非目录文件,即只要文件不是 隐藏,系统和卷文件,结果中就会显示。另一方面,如果一个文件虽然是目录文件,但该目录是隐藏的,那么结果中也是不会显示的。总之,如果不是有特别的要求,尽量还是使用faAnyFile参数,将文件查询出来以后再通过TSearchRec的Attr参数做进一步的处理。
var
TFileInfo:TSearchRec;
hFile:HWND;
b:Boolean;
begin
hFile:=FindFirst('G:\\*.exe',faAnyFile,TFileInfo);
if hFile=0 then Memo1.Lines.Add('没打开');
Memo1.Lines.Add(TFileInfo.Name);
while hFile=0 do begin hFile:=findnext(TFileInfo);
Memo1.Lines.Add(TFileInfo.Name);
end;
end;