|
@@ -1198,7 +1198,7 @@ function ExistsDir(const DirName: string): boolean;
|
|
var
|
|
var
|
|
Dir : SearchRec;
|
|
Dir : SearchRec;
|
|
begin
|
|
begin
|
|
- Dos.FindFirst(TrimEndSlash(DirName),Directory,Dir);
|
|
|
|
|
|
+ Dos.FindFirst(TrimEndSlash(DirName),anyfile,Dir);
|
|
{ if a file is found it is also reported
|
|
{ if a file is found it is also reported
|
|
at least for some Dos version
|
|
at least for some Dos version
|
|
so we need to check the attributes PM }
|
|
so we need to check the attributes PM }
|