hi!
Ich wollte hiermit die Dateien eines Verzeichnis auflisten:
Delphi-Quellcode:
procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
FileList.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
...
ListFileDir(Edit1.Text, Form3.ListBox1.Items);
...
Jedoch finde ich bei "C:\Dokumente und Einstellungen\XXXXX\Eigene Dateien" nur "Eigene Dateien" in der Liste, obwohl ich Dateien in dem Ordner habe.
Und in "C:\Dokumente und Einstellungen\All Users\Dokumente" befindet sich in der Liste "Dokumente".
Habt ihr eine Idee, woran das liegt? (oder eine andere Variante)
Vielen Dank