Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
ВнизКак переименовать? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c