[Dead_Gigabit]

Вот такой вопрос:
с помощью которой нужно перебросить dbf фаил из папки "А" в паку "Б", с последующим переименованием.
Фаил должен преименоваться в зависимости от даты например сейчас март фаилик должен быть вида Bk_KTS03.2010.dbf

вот код подскажите что не так делаю?

Код:

1 2 3

CopyFile('F:\APM-SEK\BD\KTS.dbf','C:\Programming\APM-SEK\1\KTS.dbf',true); RenameFile('C:\Programming\APM-SEK\1\KTS.dbf','C:\Programming\APM-SEK\1\Bk_KTS'+ formatdatetime (strtoint(FormatDateTime('mm.yyyy',DateTimePicker1.Date))) +'.dbf'; ShowMessage('выполненно')

[Aristarh Dark]

А что же нам говорит дядюшка хелп

Сообщение от help

BOOL CopyFile(

LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);

т.е. имя результирующего не обязательно должно быть равно имени исходного.

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

[Dead_Gigabit]

Насчет копирования согласен, а вот насчет переименовывания не понял, можно подробней я недавно начал с делфи.

[M.A.D.M.A.N.]

Код:

1 2 3 4 5 6 7 8 9

function RenameFile(const OldName, NewName: string): Boolean; begin {$IFDEF MSWINDOWS}   Result := MoveFile(PChar(OldName), PChar(NewName)); {$ENDIF} {$IFDEF LINUX}   Result := __rename(PChar(OldName), PChar(NewName)) = 0; {$ENDIF} end;

Пользуй MoveFile. Описалово в MSDN.

[Dead_Gigabit]

подсказали более простое решение вот:

Код:

1 2 3

CopyFile('F:\APM-SEK\BD\KTS.dbf','C:\Programming\APM-SEK\1\KTS.dbf',true); RenameFile('C:\Programming\APM-SEK\1\KTS.dbf','C:\Programming\APM-SEK\1\Bk_KTS' + (FormatDateTime('mm.yyyy',date)) +'.dbf'); ShowMessage('выполненно');

И все зароботало вссем спасибо...