Auto-create directory path specified in SQL export target filename. Closes #1086

This commit is contained in:
Ansgar Becker
2020-12-19 08:48:33 +01:00
parent 1d0a224fa6
commit 8ab0fa1fa0

View File

@ -1512,6 +1512,8 @@ begin
TargetFileName := ChangeFileExt(TargetFileName, '_temp.sql');
if not IsValidFilePath(TargetFileName) then
raise EFCreateError.CreateFmt(_('Filename or path contains illegal characters: "%s"'), [TargetFilename]);
if not DirectoryExists(ExtractFilePath(FExportFileName)) then
ForceDirectories(ExtractFilePath(FExportFileName));
ExportStream := TFileStream.Create(TargetFileName, fmCreate or fmOpenWrite);
end;
// ToDir handled above