得到指定文件夹下的所有文件名

Question

怎样得到指定文件夹下的所有文件的文件名，最好是一一获得，并删掉它们，解决得分，不够再给

Answer 1

var
  SearchRec: TSearchRec;
  FDir: String;
  FFileList: TStringList;
begin
  FDir := leDir.Text; // leDir.Text: 形如 C:\*.* 格式
  if Length(FDir) > 0 then
  begin
    if FindFirst(leDir.Text, faAnyFile, SearchRec) = 0 then
    begin
      FFileList := TStringList.Create;
      try
        repeat
          FFileList.Add(SearchRec.Name);
        until FindNext(SearchRec) <> 0;
      finally
        FindClose(SearchRec);
        for I := FFileList.Count - 1 downto 0 do
          DeleteFile(FFileList[I]);        FFileList.Free;
      end;
    end;
  end;

Answer 2

var
  SearchRec: TSearchRec;
  FDir,ledir: String;
  FFileList: TStringList;
  i:integer;
begin
ledir:='j:\001\*.*';
  FDir := leDir; // leDir.Text: 形如 C:\*.* 格式
  if Length(FDir) > 0 then
  begin
    if FindFirst(leDir, faAnyFile, SearchRec) = 0 then
    begin
      FFileList := TStringList.Create;
      try
        repeat
          FFileList.Add(SearchRec.Name);
        until FindNext(SearchRec) <> 0;
      finally
        FindClose(SearchRec);
        for I := FFileList.Count - 1 downto 0 do
          DeleteFile(FFileList[I]);        FFileList.Free;
      end;
    end;
  end;
end;
/////////改成这样可以运行过去，可是什么也得不到，是不是我改错了，因为原文件确实运行不过去

Answer 3

win3.1-filelistbox
不知哪个属性是设置路径的？？？

Answer 4

var
  i : Integer;
  FilesPath : String;
begin
  { 在执行以下操作之前用 OpenDialog1 选择要删除的文件，其中 设置 OpenDialog1.Options := [ofAllowMultiSelect, ofReadOnly, ofHideReadOnly,
      ofEnableSizing];
   }
  for i := 0 to OpenDialog1.Files.Count - 1 do
  begin
    //获取路径（包括文件名）
    FilesPath := OpenDialog1.Files.Strings[i];
    //删除文件
    DeleteFile(FilesPath);
  end;
end;

Answer 5

同意LYM2003的语句，　调试成功，问：能不能不读出盘符的快捷方式只读出文件的快捷方式来
再问：在删文件时能不能一个一个文件删除呀