[fpc-pascal] findfirst and findnext on non accessible files

[Marc Santhoff]

Am Mittwoch, den 28.06.2006, 11:01 +0200 schrieb Tomas Hajny:

> Which platform are you talking about, which FindFirst/FindNext
> (Dos/SysUtils) and what is the behaviour expected from you? E.g. with:

Sorry, I was too deep into the problem.

I'm using FreeBSD as main platform for development but for the future at
least Windows and Linux are targets.

> ---
> uses
>  Dos;
> var
>  SR: SearchRec;
> begin
>  FindFirst ('M:\IT\AuditPro', AnyFile, SR);
>  WriteLn (DosError);
>  FindClose (SR);
>  FindFirst ('M:\IT\AuditPro\.', AnyFile, SR);
>  WriteLn (DosError);
>  FindClose (SR);
>  FindFirst ('M:\IT\AuditPro\X', AnyFile, SR);
>  WriteLn (DosError);
>  FindClose (SR);
> end.
> ===
> running under Win32, where I don't have access to "M:\IT\AuditPro"
> directory, but I have access to "M:\IT" (i.e. I can see the AuditPro
> directory itself), I get:
> 
> 0
> 0
> 5
> 
> (where 5 corresponds to Access Denied).
> 
> Note that I don't know whether "M:\IT\AuditPro\X" exists or not (but that
> is OK, IMHO).

That's a result I'd expect. So I'll go digging for some "Error" or
"UnixError" variable.

Thanks so far,
Marc