Jetzt habe ich folgendes eingebaut:
Delphi-Quellcode:
Function FolderWritable(fDir: String): Boolean;
var
fName : String;
FS : TFileStream;
begin
result := false;
fName := IncludeTrailingPathDelimiter(ExtractFilePath(fDir)) + 'test.tmp';
FS := TFile.Create(fName);
try
result := true;
finally
FS.Free;
end;
if TFile.Exists(fName) then begin
TFile.Delete(fName);
end;
end;
Bei den Kollegen, die keinen Schreibzugriff haben, kommt dann folgende Meldung: Datei "L:\xxx\test.tmp" kann nicht erstellt werden. Zugriff verweigert.
Diese Meldung wollte ich eigentlich vermeiden. Wie kann ich das tun?