Сохранение файлов

[Janger]

Вопрос такой....
У меня есть Memo1, и я хочу что бы текст который был введёт в Memo1 был сохранён в блокноте... Для этого Я использую...

Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Текст.txt');

Но я хочу, что бы он не просто создавал текстовый документ под именем "Текст", я хочу, что бы он ещё перед этим создавал папку с сегодняшней датой, и в неё сохранял текстовый документ...Что то вроде:

Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'16.6.2013\Текст.txt');

т.е. 16.6.2013 --> это название папки, куда я и хочу сохранить текстовый документ...

[Аватар]

CreateDir или ForceDirectories

[Janger]

Сообщение от Аватар

CreateDir или ForceDirectories

CreateDirectory(Pchar(ExtractFilePath(application.exename)+'16.6.2013\'+'Текст.txt'), nil);

Такое написание кода, можно назвать правильным?

[Janger]

Ааа... вроде я понял... типа вот этого?

CreateDir(ExtractFilePath(Application.ExeName)+'16.6.2013');