From aa5063ca225bf46e834d439d208f47d46b86b72f Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 22 Nov 2009 23:50:54 +0000
Subject: [PATCH] Auto create needed directories if they don't yet exist in
 directory mode of SQL export. Fixes issue #745.

---
 source/tabletools.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/source/tabletools.pas b/source/tabletools.pas
index 90bd6c4a..0640c914 100644
--- a/source/tabletools.pas
+++ b/source/tabletools.pas
@@ -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