[Electronic_Arts]

Как копировать фалы с одного места и заменить с другими файла но в другом месте.....

[Aristarh Dark]

Windows.CopyFile или Windows.CopyFileEx

[Electronic_Arts]

Ну поточнее можно ... Люди Исходник

[Admin]

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

Ну поточнее можно ... Люди Исходник

Можно и поточнее

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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    );      Parameters   lpExistingFileName Points to a null-terminated string that specifies the name of an existing file.   lpNewFileName Points to a null-terminated string that specifies the name of the new file.   bFailIfExists Specifies how this operation is to proceed if a file of the same name as that specified by lpNewFileName already exists. If this parameter is TRUE and the new file already exists, the function fails. If this parameter is FALSE and the new file already exists, the function overwrites the existing file and succeeds.

[Electronic_Arts]

Что то не разобрался вот я хотел использывать вот это
но оно тож не помогает Трабла в том что при вставке оно не заменяет старые а добавляет новые с добавлением в названии файлов слово "Копия"

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

var   OpStruc: TSHFileOpStruct;   frombuf, tobuf: array [0..128] of Char; begin   FillChar( frombuf, Sizeof(frombuf), 0 );   FillChar( tobuf, Sizeof(tobuf), 0 );   StrPCopy( frombuf, 'C:\my\*.*' );   StrPCopy( tobuf, edit1.Text );   with OpStruc do   begin     Wnd:= Handle;     wFunc:= FO_COPY;     pFrom:= @frombuf;     pTo:=@tobuf;     fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;     fAnyOperationsAborted:= False;     hNameMappings:= nil;     lpszProgressTitle:= nil;   end;   ShFileOperation( OpStruc );  end;

может поможете. Мне над что бы оно принудительно заменяла все файлы при вставке...

[Aristarh Dark]

вот так:

Код:

1	CopyFile('C:\1.txt','C:\2.txt',true)

перезапишет в любом случае и вернет ИСТИНУ, если третий параметр false, то если файла нет - скопирует и вертер ИСТИНУ, если есть то вернет ЛОЖЬ

[Electronic_Arts]

Не помогает этот способ я уже проверил
туда я не смот пихать edit1.text нохочеть оно брать путь от сюда
и если ощибаюсь оно не может копировать фалы с определенной папки
если сильно сильно ощибаюсь то как?

[Aristarh Dark]

Блин, ну почитай книжки, в конце уже концов. Или справку, но это конечно, на очень худой конец.

Код:

1	CopyFile(PChar(Edit1.Text),PChar(Edit2.Text),true)

типа того.

ЗЫЖ Без обид

[][enk]

есть такой код:

Код:

1 2 3 4 5

if FileExists(fileToCopy) then begin   if CopyFile(pChar(fileToCopy),pChar(copyTo),false)    then ShowMessage('ура!')    else ShowMessage('Ошибка!'+#13#10 +' Код: '+IntToStr(GetLastError)                         +#13#10 +'From:'+fileToCopy+#13#10 +'To:'+copyTo);

код ошибки 2. Тоесть файл не найден. Как такое может быть, если

Код:

1	FileExists(fileToCopy)

true