From 2077c62b87dbebdc26d486c0c1a46d0465443f06 Mon Sep 17 00:00:00 2001
From: Jos Groot Lipman <jos.grootlipman@aareon.nl>
Date: Tue, 26 Jul 2016 07:48:17 +0000
Subject: [PATCH] FSN#37211 Geen oneindige loop meer in CreateFullPath bij
 foutief pad

svn path=/Website/trunk/; revision=30134
---
 APPL/Shared/FlexFiles.inc | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/APPL/Shared/FlexFiles.inc b/APPL/Shared/FlexFiles.inc
index a969e54d46..fd6613b4d3 100644
--- a/APPL/Shared/FlexFiles.inc
+++ b/APPL/Shared/FlexFiles.inc
@@ -528,12 +528,17 @@ function CreateFullPath(sPath)
         while (!fso.FolderExists(sPath))
         {
             var sParent = sPath;
-            while (!fso.FolderExists(sParent))
+            while (sParent && !fso.FolderExists(sParent))
             {
                var sChild = sParent;
                var sParent = fso.GetParentFolderName(sChild);
             }
-            oFolder = fso.CreateFolder(sChild)
+            if (!sParent)
+            {
+                __DoLog("Cannot create folder {0}, parentfolder does not exist.".format(sPath), "#f00");
+                INTERN_ERROR_BAD_PATH;
+            }
+            oFolder = fso.CreateFolder(sChild);
         }
     }
 }