[b][color=red]!!! Копирование файлов с их замещением при сов

[GAL]

Привет всем!
Пожалуйста, помогите.
Мне необходимо, чтобы при копировании файлов и при их совпадении имен они автоматически заменялись. Я использую CopyFile, но при копировании, если есть уже файл с таким именем, выдается ошибка.
Помогите кто может!

[xolod]

Отрабатывать ошибки с помощью On Error Goto...

[SHURUP]

Я использую CopyFile, но при копировании, если есть уже файл с таким именем, выдается ошибка.

Я так понял, что ты используешь не CopyFile а FileCopy (встроеный VB-шный).
Посему рекомендую использовать или API или FSO. там присуствует булевый параметр, отвечающий ка-раз за замену файлов с одинаковыми именями.
пример использования FSO

Код: Выделить всё

Dim FSO As FileSystemObject

Private Sub Form_Load()
Set FSO = New FileSystemObject
    FSO.CopyFile "c:\boot.ini", "D:", True
Set FSO = Nothing
End Sub

Но обработчик Ошибок - обязателен (на случай если файл занят или невозможна запись на диск)