Zitat von
Luckie:
Dazu habe ich dir doch Code im zweiten Beitrag gepostet.
Habe es auch so gelesen, daß es damit funktioniert hat?!?
An sonsten ändere meine Funktion etwas ab:
Delphi-Quellcode:
Function FileAccessable(Dateiname : String) : Boolean;
var
TestDatei : TFileStream;
Begin
Result := False;
Try
TestDatei := TFileStream.Create(Dateiname, fmOpenRead or fmShareDenyNone);
Result := True;
TestDatei.Free;
Except
End; {Try..Except}
End; { Function }
durch
Eventuell wird ja die
Exception auch ausgelöst wenn Du versuchst die Datei mit dieser Funktion zum Lesen zu öffnen. Dabei unterscheidet diese Funktion natürlich nicht,
warum die Datei nicht geöffnet werden kann (Rechte, Existenz etc.). Müsstest evtl. halt die Funktion ausbauen - falls es überhaupt interessiert, warum sie nicht gelesen werden kann. Stichwort FileExists(...) könnte z.B. innerhalb der Funktion prüfen, ob die Datei überhaupt (noch) existiert.
Sonst sag uns doch, warum Luckies Code von oben jetzt nicht (mehr?) funzt oder was Dein jetztiges Problem von Deinem Problem, das von Luckie (anscheinend) schon gelöst wurde, unterscheidet. Dann können wir Dir bestimmt weiterhelfen!
SCRaT