Question

pascal怎样编删除20万个文件的程序(不删除文件夹和无关程序）？别人在我U盘里运行了这个现在打都打不开。

帮忙克制他们那可恶的病毒（本人较穷，就这么点积分了）

Answer 1

非要用pascal也行，但是我只是利用pascal允许dos命令：

program clear;
uses dos;
const path={ 在这里填上你想清除的文件夹 };
begin
write('正在清除，请稍等..');
exec('cmd','/c del "'+path+'\*.*"');
write(#13+'以清除完毕，按回车键结束');
readln;
end.

Answer 2

希望你能采纳
用dos 行不？".bat"
建立一个txt 输入格式
echo 正在清理系统文件，请稍等......
del /f /s /q {说明：后面+路径+文件一般格式）
echo. & pause
比如

echo 正在清理系统文件，请稍等......
del /f /s /q %systemdrive%\*.txt {删掉systemdrive的所有txt}
echo. & pause

编辑完了后再存为"清理垃圾.bat"

Answer 3

一定要用pascal么？如果中了那么多病毒的话，估计pascal生成的exe也不能用了吧。
试试看用命令行手工操作。

追问

能告诉下邮箱么？我把那个病毒发个给你（没有源程序，运行时间越长垃圾文件越多）？

Answer 4

做个dat del*.*