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.