FindFirst / FindNext auf schreibgeschützten Netzwerkfreigaben

[tolleware]

Hallo,

ich bin etwas verzweifelt, denn ich lese ein Verzeichnis komplett ein und zähle die Unterverzeichnisse:

Count ;= 0;
If FindFirst (Dir+'\'+FileMask,faAnyFile,Info)=0 then
Repeat
With Info do
begin
If (Attr and faDirectory) = faDirectory then Inc(Count);
end;
Until FindNext(info)<>0;
FindClose(Info);

Starte ich das Programm auf Laufwerk C: wird die Anzahl der Verzeichnisse (Count) ausgegeben.
Starte ich das Programm auf einem per "net use X: \\server\freigabe" gemappten Laufwerk (dessen Eigenschaften sind ReadOnly für alle Remote-User, d.h. es darf nur gelesen und nicht geschrieben werden), wird immer 0 ausgegeben, obwohl es dort Verzeichnisse gibt (und "dir X:\" zeigt was an).

Wieso werden die Verzeichnisse nicht gezählt, d.h. immer 0 als Ergebnis angezeigt ?

Was mache ich falsch ?

Ich hoffe auf eine rasche Antwort - Danke !

[fliegermichl]

Du solltest den Rückgabewert von Findfirst auch an Info zuweisen, ansonsten ist dessen Inhalt undefiniert.

[RudiRatlos]

vielleicht eine dumme Bemerkung...

aber steht in der 2. Zeile in der Variablen Dir auch das richtige drin?

[Zvoni]

Du solltest den Rückgabewert von Findfirst auch an Info zuweisen, ansonsten ist dessen Inhalt undefiniert.

Macht er doch ("Info" als drittes Argument) --> https://www.freepascal.org/docs-html/rt ... first.html
Der Rückgabewert ist 0 ("hab etwas gefunden") bzw. ungleich 0 (Fehler)

Meine Vermutung liegt eher bei "Dir" (wie schon erwähnt) bzw. "FileMask"
da oben gezeigter Code fast 1:1 zum Beispiel in meinem Link ist

[CCRDudeLaz]

Das "übliche": testet Du in der IDE, und die ist elevated?

Netzwerkfreigaben sind nicht "automatisch" elevated und non-elevated verbunden.

(ich habe immer den Total Commander installiert und starte den elevated/non-elevated, um den Zugriff bei sowas zu prüfen. Ggfls. verbindet er dann automatisch, die Login-Informationen sind ja gespeichert und das Laufwerk ist nach dem mappen auch schon da, nur halt noch unverbunden)