diff --git a/mdl/m_fileio.pas b/mdl/m_fileio.pas
index 3594cd0..0f282c5 100644
--- a/mdl/m_fileio.pas
+++ b/mdl/m_fileio.pas
@@ -295,6 +295,8 @@ Begin
   Prefix := '';
   Str    := DirSlash(Str);
 
+  If DirExists(Str) Then Exit;
+
   Count := Pos(PathSep, Str);
 
   While (Count > 0) Do Begin