//记录文件名格式 :YYMMDDHH.TXT
//删除两天前记录文件。
procedure TKeyReportForm.deleteTxtFile;
var
txtName,cTxtFile:string;
ii, i:integer;
begin //删除从3到5 天记录文件。
for i:=3 to 5 do
begin
cTxtFile:=extractFilePath(application.ExeName)+formatdatetime('yymmddhh',now-i)+'.txt';
// edit1.Text:=copy(cTxtFile,pos('.txt',cTxtFile)-8 ,8);
txtName:=copy(cTxtFile,pos('.txt',cTxtFile)-8 ,6);
// TxtFilepath:=extractFilePath(application.ExeName) ;
// DeleteFile(PChar(txtFilePath+'temp.txt')); //删除指定文件。
// txtName:= copy(cTxtFile,,pos('.txt',ctxtFile));
for ii:=0 to 23 do
begin
if ii<=9 then
ctxtFile:=ExtractFilePath(application.ExeName)+ txtName +'0'+ intToStr(ii) + '.txt'
else
ctxtFile:=ExtractFilePath(application.ExeName)+ txtName + intTostr(ii) + '.txt';
try
DeleteFile(cTxtFile);
except
exit;
end;
end;
end;
end;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/729024/viewspace-564890/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/729024/viewspace-564890/