PS: ForceDirectories liefert dir einen netten Rückgabewert, ala Boolean
z.B.:
Delphi-Quellcode:
If ForceDirectories(Path) Then Begin
Dokument.Add(Text);
Dokument.SaveToFile(DokumentenOrt);
End Else ShowMessage(SysErrorMessage(GetLastError));
[add]
und wozu zwei getrennte Pfade?
das sind nur unnötige Fehlerquellen
ForceDirectories(ExctractFilePath(DokumentenOrt));