摘要: //sDir:=ExtractFilePath(Application.ExeName)+'\';
ForceDirectories(sDir + 'TESTLOG');
sBackupFile := sDir + 'TESTLOG\'+FormatDateTime('YYYYMMDDHH',now())+'.log';
AssignFile(vFile, sBackupFile);
if FileExists(sBackupFile) then
Append(vFile)
else
Rewrite(vFile);
阅读全文