Hallo ich noch mal ,ich hab hier noch mal was geschrieben wie es aussehen müßte. Habs jetzt aber nicht getestet!!!
Wichtig
Rufe ForceDirectories nicht mit einem leeren String auf. Dies kann dazu führen, daß ForceDirectories eine Ausnahme auslöst.
Delphi-Quellcode:
procedure TForm1.ButtonClick(Sender: TObject);
begin
if DirectoryExists('C:\irgendwas\ass\fjk') then
begin
Memo1.Lines.LoadFromFile('C:\irgendwas\ass\fjk' + 'Dateinamen.txt');
end
else
begin
ForceDirectories('C:\irgendwas\ass\fjk');
Memo1.Lines.LoadFromFile('C:\irgendwas\ass\fjk' + 'Dateinamen.txt');
end;
end;