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