Текущий архив: 2002.12.02;
Скачать: CL | DM;

Вниз

Как переименовать?   Найти похожие ветки 

← →
Whippi ©   (2002-11-21 15:10) [0]

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

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

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

---

← →
Smithson ©   (2002-11-21 15:14) [1]

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

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;

---

← →
Calm ©   (2002-11-21 15:16) [2]

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

---

← →
Anatoly Podgoretsky ©   (2002-11-21 15:35) [3]

FormatDateTime

---

← →
Whippi ©   (2002-11-21 15:48) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c