schreibberechtigung abfragen

[markus lemcke]

Hallo,

ich speichere eine textdatei aus einer stringliste mit savetofile! wenn ich auf dem laufwerk keine schreibberechtigung habe, kommt die meldung
datei ... kann nicht erstellt werden

diese meldung ist für anwender wenig aussagekräftig!
ich möchte sie durch eine eigene meldung abfangen.

wie kann ich die schreibberechtigung auf einem laufwerk uberprüfen oder geht da was mit try finally?

wenn ja, wie?

Gruß

Markus

[Bernd Schulz]

Hallo!
Wenn es nur dartum geht die Datei irgendwo abzuspeichern wäre das TEMP Verzeichnis von Windows ideal. Da darfst du eigentlich immer Dazeien erstellen...

var
help : pchar;
begin
getmem ( help, 100 );
GetTempPath ( 100, help );
showmessage ( help );
end;

oder natürlich SaveToFile auf eine Exception prüfen:
var
help: tstringlist;
begin
help := tstringlist.create;
help.add ( '1' );
help.add ( '2' );

try
help.SaveToFile ( 'c:\ttmp\text.txt' );
except
on e:exception do begin
showmessage ( 'So nicht!' +#13+ e.message );
end;
end;
end;

Den Ordner gibt es nicht also kommt immer eine Exception.
Damit kannst Du dann Deine eigene Meldung generieren.

Wenn Du vorher noch prüfst, ob die Datei schon vorhanden ist mit fileexists aus sysutils wird das immer besser...

Zum Thema Exceptions und Fehlerprotokollierung ist das hier recht interessant:
http://groups.google.de/group/de.comp.lang.delphi.misc/browse_thread/thread/848288ed7862ed3e/cc385e7bdf9f5aa4%23cc385e7bdf9f5aa4?sa=X&oi=groups r&start=0&num=3

BYE BERN

[markus lemcke]

hallo bernd,

in meinem fall MUSS die datei in ein bestimmtes verzeichnis!
aber da für den hinweis!

gruß

marku