Probleme mit Pfaden

[DeddyH]

Unter Vista wirst Du evtl. Probleme bekommen, aber versuch es mal so:

Delphi-Quellcode:

//Pfad zusammenbasteln
sPath := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'Gespeicherte Daten';
//ggf. anlegen
if not DirectoryExists(sPath) then
  ForceDirectories(sPath);
//da ForceDirectories eine Prozedur und keine Funktion ist, prüfen
if DirectoryExists(sPath) then
  Memo1.Lines.SaveToFile(IncludeTrailingPathDelimiter(sPath) + 'Daten.txt')
else
  MessageBox(Handle,'Speicherpfad konnte nicht angelegt werden','Fehler',MB_OK or MB_ICONERROR);

[edit] Viel zu langsam [/edit]