Hallo,
bei folgender Funktion bekomme ich eine EFOpenError-Fehlermeldung, obwohl der Pfad für meinen PC 100% stimmt. Dass ich den noch mit einer "
SHGetSpecialFolderPath Function" oder "SHGetFolderPath Function" habe ich nach einiger Recherche schon herausgefunden, allerdings soll es ja erstmal überhaupt klappen, bevor ich es allgemein gestalte.
Frage: Wieso kann er die Datei "Spionageberichte.txt" nicht öffnen, obwohl der Pfad eindeutig stimmt?
Delphi-Quellcode:
function LadeSpio(Pfad: string): String;
var Spio: TStringList;
begin
Spio := TStringList.Create;
try
try
Spio.LoadFromFile('F:\Eigene Dateien\Ordner1\' + Pfad + '\Spionageberichte.txt');
except
Showmessage('Fehler (01). Bei Fragen bitte an den Support wenden.' + #13 +
'Die Datei ist nicht vorhanden. Bitte eventuell den Dateipfad nachprüfen.');
end;
finally
Spio.Free;
end;
result := Spio.text;
end;
Vielen Dank für eure Mühe.