求高手帮我写代码

来源：百度知道编辑：UC知道时间：2024/06/18 12:31:12

用记事本写一段代码,保存在桌面双击能运行. 目的:直接删除E:\aaa文件夹下的所有文件,(不放回收站,不需确定直接删除).文件类型可以bat
(还有130分,如果行全给你)
或者用别的什么写的代码,都行

bat 内容如下
attrib -s -h -r -a e:\aaa\*.*
attrib -s -h -r -a e:\aaa
del /q /f /s e:\aaa\*.*
rd /s /q e:\aaa
md e:\aaa

我是用Delphi7
procedure TForm1.Button1Click(Sender: TObject);
var
sourcefile:String;

begin
sourcefile:= 'E:\aaa.Txt';
deleteFile(SourceFile);

end;

试下