Auto create needed directories if they don't yet exist in directory mode of SQL export. Fixes issue #745.

This commit is contained in:
Ansgar Becker
2009-11-22 23:50:54 +00:00
parent e5113a4260
commit aa5063ca22

View File

@ -850,6 +850,8 @@ begin
try
if ToDir then begin
FreeAndNil(ExportStream);
if not DirectoryExists(comboExportOutputTarget.Text) then
ForceDirectories(comboExportOutputTarget.Text);
ExportStream := openfs(comboExportOutputTarget.Text+'\'+GoodFileName(obj)+'.sql');
end;
if ToFile and (not Assigned(ExportStream)) then