我菜我发问，如何删除指定目录下的所有文件？另外。。。

Question

告诉我哪里能下载到win32 api大全？

Answer 1

http://www.pcbookcn.com/list.asp?id=1009

Answer 2

删除指定目录下的所有文件？给我发消息吧，我给你一段代码win32 api大全我也给你发过来

Answer 3

我这也有相关的源代码的。
在我的主页中
http://yckxzjj.vip.sina.com/delphi/yuanma/FileAttrib.zip
有机会多交流吧！

Answer 4

摘一段程序给你,希望对你有帮助:
利用递归实现删除某一目录下所有文件
var Form1: TForm1;
rec_stack:array [1..30] of TSearchRec;
rec_pointer:integer;
Del_Flag:Boolean;
------------------------------------------------------------------ ------procedure TForm1.DeleteTree(s:string);
VAR searchRec:TSearchRec;
begin
if FindFirst(s+'\*.*', faAnyFile, SearchRec)=0 then
repeat
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
begin
if (SearchRec.Attr and faDirectory>0) then
begin
rec_stack[rec_pointer]:=SearchRec;
rec_pointer:=rec_pointer-1;
DeleteTree(s+'\'+SearchRec.Name);
rec_pointer:=rec_pointer+1;
SearchRec:=rec_stack[rec_pointer];
end
else
begin
try
FileSetAttr(s+'\'+SearchRec.Name,faArchive);
DeleteFile(s+'\'+SearchRec.Name);
except
Application.MessageBox(PChar('Delete File:'+s+'\'+SearchRec.Name+' Error!'),'Info',MB_OK);
Del_Flag:=False;
end;
end;
end;
until (FindNext(SearchRec)<>0);
FindClose(SearchRec);
if rec_pointer<30 then
begin
try
FileSetAttr(s,faArchive);
RemoveDir(s);
except
Application.MessageBox(PChar('Delete Directory:'+s+' Error!'),'Info',MB_OK);
Del_Flag:=False;
end;
end;
end;
---------------------------------------------------------Del_Flag:=True;
rec_pointer:=30;
DeleteTree('c:\temp');
if Del_Flag then Application.MessageBox(PChar('目录c:\temp的内容已成功清除!'),'信息',MB_OK);

Answer 5

unit Unit_DeleteDir;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    function DoReMoveDir(sDirName:string):Boolean;
    function DeleteDir(sDirName:string):Boolean;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}//删除目录的函数
function TForm1.DeleteDir(sDirName: string): Boolean;
Var
  a:boolean;
begin
  if Length(sDirName)<=0 then
    exit;
  //...删除
  a := DoReMoveDir(sDirName) and RemoveDir(sDirName);
  result := a;
end;function TForm1.DoReMoveDir(sDirName: string): Boolean;
Var
  hFindFile:Cardinal;
  tfile:string;
  sCurDir:string;
  bEmptyDir:Boolean;
  FindFileData:WIN32_FIND_DATA;
begin
  //如果删除的是空目录，则置bEmptyDir为TRUE
  //初始时，bEmptyDir为TRUE
  bEmptyDir := TRUE;
  //现保存当前目录
  sCurDir := GetCurrentDir;
  SetLength(sCurDir,Length(sCurDir));
  ChDir(sDirName);
  hFindFile := FindFirstFile('*.*',FindFileData);
  if hFindFile<>INVALID_HANDLE_VALUE then
  begin
    repeat
      tfile := FindFileData.cFileName;
      if (tfile='.') or (tfile='..') then
      begin
        bEmptyDir := bEmptyDir And True;
        Continue;
      end;
      //不是空目录,置bEmptyDir为FALSE
      bEmptyDir := FALSE;
      if FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY then
      begin
        if sDirName[Length(sDirName)]<>'\' then
          DoReMoveDir(sDirName+'\'+tfile)
        else
          DoReMoveDir(sDirName+tfile);
        if not ReMoveDirectory(PChar(tfile)) then
          result := False
        else
          result := True;
      end
      else
      begin
        if not DeleteFile(PChar(tfile)) then
          result := False
        else
          result := True;
      end;
    until FindNextFile(hFindFile,FindFileData)=False;
  end
  else
  begin
    ChDir(sCurDir);
    result := False;
    exit;
  end;
  //如果是空目录，则删除该空目录
  if bEmptyDir then
  begin
    //返回上一级目录
    ChDir('..');
    //删除空目录
    ReMoveDirectory(PChar(sDirName));
  end;
  //回到原来的目录下
  ChDir(sCurDir);
  result := True;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  a:boolean;
begin
  if trim(Edit1.text)<>'' then
  begin
    a := DeleteDir(Edit1.text);
    if a=true then
    begin
      ShowMessage('你已成功的删除了该目录！');
    end;
  end;
end;end.

Answer 6

有个SHFILEOPEATION
可以达到要求 
你删除了目录后再新建一个空的就是了