Функция CopyFile

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

Платформа: Win 95/98, Win NT

CopyFile копирует файл из одного места в другой(операция подобная копированию файлов в Проводнике). В зависимости от значения bFailIfExists, функция либо перепишет файл,если он уже существует,либо возникнет ошибка. В успешном случае функция возвращает 1 , в случае ошибки возвращается 0.

lpExistingFileName
Файл-источник; т.е. файл для копирования.
lpNewFileName
Файл-назначение; т.е. новый файл, являющийся копией файла-источника.
bFailIfExists
Если значение равно 0, функция перепишет файл lpNewFileName,если он существует. Если значение отлично от нуля, то произойдет ошибка.

Пример:

' Скопируем файл C:\MySample\temp.txt в C:\Russia\buffer.txt.
' Не будем переписывать файл C:\Russia\buffer.txt если он существует.
Dim retval As Long  ' возвращаемое значение

' копируем файл
retval = CopyFile("C:\MySample\temp.txt", "C:\Russia\buffer.txt", 1)
If retval = 0 Then  ' если ошибка
  Debug.Print "Не могу скопировать файл -- C:\Russia\buffer.txt уже существует.
Else  ' если все нормально
  Debug.Print "Файл скопирован."
End If

Схожие функции: MoveFile
Категория: Файлы

В начало.