diff --git a/source/tabletools.pas b/source/tabletools.pas
index e3b80f7d..53b5059f 100644
--- a/source/tabletools.pas
+++ b/source/tabletools.pas
@@ -789,6 +789,11 @@ var
         ErrorDialog(E.Message);
         FCancelled := True;
       end;
+      on E:EInOutError do begin
+        // ForceDirectories failed with "Unable to create directory."
+        ErrorDialog(E.Message);
+        FCancelled := True;
+      end;
     end;
   end;