diff options
Diffstat (limited to 'rtl/objpas/sysutils/osutil.inc')
-rw-r--r-- | rtl/objpas/sysutils/osutil.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/objpas/sysutils/osutil.inc b/rtl/objpas/sysutils/osutil.inc index ffa7531efd..729f96d285 100644 --- a/rtl/objpas/sysutils/osutil.inc +++ b/rtl/objpas/sysutils/osutil.inc @@ -245,7 +245,7 @@ begin Repeat Result:=Format('%s%.5d.tmp',[Start,I]); Inc(I); - Until not FileExists(Result); + Until not (FileExists(Result) or DirectoryExists(Result)); end; end; {$endif} |