Добавление раСшИрения к файлу

[GvR]

Доброго времени суток.
Для отправки на фтп ряда файлов использую строчку:

IdFTP1.Put(Memo1.Lines[i], FormatDateTime('yyyy.mm.dd-hh.nn.ss', now));

Как видИм, имя файла на ФТП имеет вид yyyy.mm.dd-hh.nn.ss
Вопрос:
Как к yyyy.mm.dd-hh.nn.ss добавить еГо формат, чтобы когда я отправляю file.avi, на фтп было имя "2009.11.16-02.31.48.avi", а не просто "2009.11.16-02.31.48"

[uberchel]

Держи:

IdFTP1.Put(Memo1.Lines[i], FormatDateTime('yyyy.mm.dd-hh.nn.ss', now) + ExtractFileExt(Memo1.lines[i]));

[GvR]

Еще один вопрос ..
Как создать папку вида yyyy.mm.dd-hh.nn.ss и все отправленные файлы за текущую сессию заливать в нее?

[uberchel]

Так:

CreateDir(FormatDateTime('yyyy.mm.dd-hh.nn.ss', now));
хотя не будет так работать, потому, что надо заменить  на чето др:
CreateDir('c:\' + stringReplace(FormatDateTime('yyyy.mm.dd-hh.nn.ss', now),':','_',[rfReplaceAll]));

[GvR]

А что еще можно придумать чтобы при каждой сесии использовалась другая папка?