用delphi如何一次删除某个目录下的所有文件？

Posted 2023-04-12

参考技术A 用FindFirst,FindNext,FindClose来遍历文件，用DeleteFile来删除。不过做为一个程序员，解决问题是第一位的，所以可以用下述办法winexec('Deltree.exe
-y
c:\test',sw_hide); 参考技术B var
F:
Textfile;begin
OpenDialog1.Title
:=
'Delete
File';
if
OpenDialog1.Execute
then
begin
AssignFile(F,
OpenDialog1.FileName);
try
Reset(F);
if
MessageDlg
('Erase
'
+
OpenDialog1.FileName
+
'?',
mtConfirmation,
[mbYes,
mbNo],
0)
=
mrYes
then
begin
CloseFile(F);
Erase(F);
end;
except
on
EInOutError
do
MessageDlg('File
I/O
error.',
mtError,
[mbOk],
0);
end;
end;end;如果要删除整个目录中的文件，需要搜索
所有的文件名称即可。 参考技术C Deletefiles能一次删除多个文件？我怎么只能删除一个

linux下查找某个目录下的具体目录，删除过期文件

删除当前目录下的所有超过90天的log文件

  1 #!/bin/sh
  2
  3 echo "before remove log"
  4 du --max-depth=1 -h
  5 echo "------------------------------------------------------------------------------------------------"
  6 # delete all file under log folder longer then 91 days
  7 for folder in $(find . -type d -name log)
  8 do
  9     echo $folder
 10     find $folder -type f -mtime +91  -exec rm -rf  \\;
 11 done
 12 echo "------------------------------------------------------------------------------------------------"
 13 echo "after remove log longer than 90 days"
 14 du --max-depth=1 -h

1:查看没删除前存储情况
2:查找当前目录下的所有log目录，逐一遍历，
3:接着find 查看log 目录下所有超过91 天的文件 ， exec 删除。
4：查看删除后的存储占用情况。