Question

某文件夹下每天产生大量照片，想用Delphi 做一个软件，点击按钮可以删除某个时间段内的照片，该怎么

起止时间，删除照片。

Answer 1

procedure TForm1.DelFiles(FilePath:String;StartDt,EndDt:Tdatetime);
var
f:TSearchRec;
sPath,sFile: String;
dt:TDateTime;
begin
//检查目录名后面是否有
'\\'
if
Copy(FilePath,Length(FilePath),1) <>
'\\'
then

sPath := FilePath
+
'\\'
else

sPath := FilePath;
if
FindFirst(sPath+'*.*',faAnyFile, f)= 0 then
begin

repeat

sFile:=Trim(f.Name);

if
sFile='.'
then
Continue;

if
sFile='..'
then
Continue;

sFile:=sPath+f.Name;

if
(f.Attr
and
faDirectory)<>0
then

DelFiles(sFile,StartDt,EndDt)

else

if
(f.Attr and faAnyFile) = f.Attr
then

begin

dt:=FileDateToDateTime(f.Time);

if (dt>StartDt) and (dt<EndDt) then

DeleteFile(sFile);

//删除文件

end;

until
FindNext(f)
<>
0;

FindClose(f);
end;
end;
在你的按钮事件里调用这个方法
第一个参数是完整的文件路径
第二个是开始时间
第三个是结束时间

有问题留言给我

Answer 2

我选择我喜欢的