Thomas Tempelmann wrote:
Also wirst du wohl eher einen Fehler in deinem Algo haben. Und den
können wir nicht riechen. Also herzeigen.
Gern:
Sub DateienZusammensuchen(f as folderitem)
dim i,j,k,bis as integer
dim gefunden as Boolean
bis=f.Count
for i=1 to bis
if f.Item(i)<>nil then
if f.Item(i).Directory=False then
if f.item(i).Alias=false then
Dateien.Append f.Item(i)
Namen.Append f.Item(i).DisplayName+"#"+Str(Anz)
Anz=Anz+1
end
else
DateienZusammensuchen(f.Item(i))
end
end
next
End Sub
MfG, Metti.
