Datei in Unterverzeichnis speichern

[Albi]

Hallo alle zusammen,

Ich habe folgendes Problem. Über mein Prog kann ich einen Brief schreiben und diesen soll er mir dann in einem Unterverzeichnis abspeichern aber wie sage ich Delphi, das es das machen soll.

Ich verwende folgenden Code:

Code:

NewFile:= ExtractFileName(FileName)+Form1.Query1.FieldByName('Name').AsString+'.doc';
....
....
....
WordDocument1.SaveAs(NewFile);