Часто задаваемые вопросы и ответы по программированию на VB
Последнее обновление: 28.03.03
Q: Как копировать файл?
A (=Alex=):

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Form_Load()
'Этот пример скопирует файл 'C:\1\conv.htm' в директорию 'C:\1\2\'.
'Если файл существует, то он будет перезаписан новым файлом.
'Если вы хотите, чтобы новый файл не записывался на место старого, замените 'False' на 'True'
A = CopyFile("C:\1\conv.htm", "C:\1\1\conv.htm", False)
If A Then
MsgBox "Файл скопирован"
Else
MsgBox "Ошибка. Файл НЕ скопирован"
End If
End Sub

FAQ составлен по материалам Форума на Исходниках.Ру.
Составитель: Crew
Copyright © 2002 by Sources.ru. All rights reserved.