--- a/FileOperation.st	Wed Dec 08 18:25:25 2010 +0100
+++ b/FileOperation.st	Thu Dec 09 08:46:22 2010 +0100
@@ -179,16 +179,27 @@
 
 checkDirectoryExists:aDirectory
     aDirectory exists ifFalse:[
-	Dialog warn:('Non-existing Directory: %1' bindWith:aDirectory asString).
-	^ false
+        (Dialog confirm:(FileBrowser classResources 
+                            stringWithCRs:'Non-existing directory: %1\\Create?' 
+                            with:aDirectory asString)
+        ) ifFalse:[
+            ^ false
+        ].
+        aDirectory recursiveMakeDirectory.
+        aDirectory exists ifFalse:[
+            Dialog warn:(FileBrowser classResources 
+                            string:'Failed to create directory: %1').
+            ^ false
+        ].
     ].
     aDirectory isDirectory ifFalse:[
-	Dialog warn:('Not a Directory: %1' bindWith:aDirectory asString).
-	^ false
+        Dialog warn:('Not a directory: %1' bindWith:aDirectory asString).
+        ^ false
     ].
     ^ true
 
     "Created: / 07-02-2007 / 18:30:49 / cg"
+    "Modified: / 09-12-2010 / 08:45:45 / cg"
 !
 
 fileExistsDialogForNewFile:newFile oldFile:oldFile withCancel:withCancel
@@ -1555,9 +1566,9 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.87 2010-11-27 18:21:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.88 2010-12-09 07:46:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.87 2010-11-27 18:21:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.88 2010-12-09 07:46:22 cg Exp $'
 ! !