16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.btn1Click(Sender: TObject);
var
liPath: TStringList;
ser: tsearchRec;
i: Integer;
begin
liPath := TStringList.Create;
liPath.Add('D:\pas\bak\*.rar');
liPath.Add('D:\pas\bak\*.7z');
liPath.Add('D:\pas\bak\*.zip');
for I := 0 to liPath.Count - 1 do
begin
if FindFirst(liPath[], faAnyFile, ser) = 0 then
repeat
Memo1.Lines.Add(ser.Name); // 列出所有指定目录中的rar、7z、zip类型文件
until (FindNext(ser) <> 0);
end;
liPath.Free;
end;