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

要说也不复杂啊！取文件的修改时间，然后判断是否在这个时间段内，然后删除呗！ 看样子你还delphi新手啊！那这个程序练练手吧，太简单不过了！ 给楼上的提个醒！你那样写稳定性相当差，很多文件都删不掉的！我们专业写文件读写删除操作都不用DeleteFile的呵呵，因为DeleteFile经常会删不掉文件的！而且如果涉及权限问题还更麻烦！ 而且连个IO错误处理都没有能用吗！