1获取指定目录下所有文件名称时却找不到没有属性的文件
程序如下
function GetDirFile(TypeName: String; DirName: String):TStringList;
{ 返回值为字符串列表 }
var
sr: TSearchRec;
FileAttrs: Integer;
StrList: TStringList;
begin
StrList := TStringList.Create;
DirName := GetDirName(DirName);
FileAttrs := faAnyFile;
if FindFirst(DirName + TypeName, FileAttrs, sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
StrList.Add(sr.name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
Result := StrList;
// StrList.Free;
end; { GetDirFile }
为段代码可以把".","..","xxxx"所有文件列出来,可是,当我把一个文本文件的属性设为,即不只读也不存档
,也不系统时,却找不到这个文件了。这是为什么,怎么解决这个问题??