Hallo,
um die möglichen Directorys zu bekommen siehe FAQs "Dateien suchen".
Dort mußt Du mit Findfirst und dem Attribut faDirectory nach Ordner suchen - z.B. in eine Listbox hinein. Dann kannst Du mit mit folgendem
Code die Rechte überprüfen:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
| Attrs := FileGetAttr('ordner'); if Attrs and faDirectory <> 0 then ...
faReadOnly Schreibgeschützte Datei faHidden Verborgene Datei faSysFile Systemdatei faVolumeID Laufwerks-ID faDirectory Verzeichnis faArchive Archivdatei faAnyFile Beliebige Datei |
Und mit folgendem Code kannst Du Dir die Rechte geben, die Du brauchst:
Quelltext
1:
| FileSetAttr(filename, faArchive); |
Gruß Pierre