Möchtest DU die in dem Pfad enthaltenen Unterordner auch sehen?
Wenn nicht, dann ruf das FirndFirst mit
Code:
(faAnyFile and not FaDirectory)
auf.
Dann bekommst DU gar keine Ordner (weder übergeordnete noch untergeordnete) zu sehen.
Eine Anmerkung am Rande:
Du schreibst:
if FolderDialog1.Execute=True then
Du solltest hier nur
if FolderDialog1.Execute then
verwenden.
Warum das so ist, ist hier schon oft diskutiert worden und über die Forensuche leicht zu finden.
Gruß
Thomas