| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как переименовать? [D6, Win2k]

Whippi ©   (2002-11-21 15:10:00) 

Есть задача: нужно програмно переименовать файл имя.расширение в имя_ТекущаяДата.расширение.
Чуствую что надо использовать
RenameFile( "OLD.TXT", "NEW.TXT")и Функцию Date чтото типа такого:

var
S: string;
begin
S:= DateToStr( Date);
RenameFile( "OLD.TXT", "NEW.TXT"+S)
end;

но помоему это неправильно. Подскажите пожалуйста.

---

Whippi   (2002-11-21 15:48:00) [1]

УРРРРРРРРРРРРРРРА!!!!!!!!!!!
Спасибо, заработало

---

Anatoly Podgoretsky   (2002-11-21 15:35:00) [2]

FormatDateTime

---

Calm   (2002-11-21 15:16:00) [3]

Еще нужно следить за тем, чтобы в представлении даты не было символов "/". Т.к. таким имена файлов недопустимы.

---

Smithson   (2002-11-21 15:14:00) [4]

Не так.
Надо так:

var
S: string;
begin
S:= DateToStr(Now);
RenameFile("OLD.TXT", "NEW_"+S+".TXT"
end;

или в более общем случает так

var
S, FileName: string;
begin
S:= DateToStr(Now);
FileName := ....
RenameFile(FileName, ExtractFilePath(FileName)+ExtractFileName(FileName)+"_"+S+ExtractFileExt(FileName)) ;

end;

---

Наверх