Функция CopyFile

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

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

lpExistingFileName

Файл-источник; т.е. файл для копирования

lpNewFileName

Файл-назначение; т.е. новый файл, являющийся копией файла-источника

bFailIfExists

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

Пример

' Скопируем файл D:\Samples\temp.txt
' в D:\Russia\buffer.txt
' Не будем переписывать файл D:\Russia\buffer.txt,
' если он существует
Dim lRet As Long ' возвращаемое значение
' копируем файл
lRet = CopyFile("D:\Samples\temp.txt", "D:\Russia\buffer.txt", 1)
If lRet = 0 Then ' если ошибка
  Debug.Print "Не могу скопировать файл - D:\Russia\buffer.txt уже существует
Else ' если все нормально
  Debug.Print "Файл скопирован"
End If

Смотри также

MoveFile

Категория

Файлы

Реклама