Здравствуйте, Silent_Sky, Вы писали:
SS>Используй АПИ функцию CopyFile для копирования
SS>Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long SS>' Скопируем файл C:\Samples\temp.txt в C:\Russia\buffer.txt. SS>' Не будем переписывать файл C:\Russia\buffer.txt если он существует. SS>Dim retval As Long ' возвращаемое значение
SS>' копируем файл SS>retval = CopyFile("C:\Samples\temp.txt", "C:\Russia\buffer.txt", 1) SS>If retval = 0 Then ' если ошибка SS> Debug.Print "Не могу скопировать файл -- C:\Russia\buffer.txt уже существует. SS>Else ' если все нормально SS> Debug.Print "Файл скопирован." SS>End If
Я допустил неточность в постановке вопроса (за это прошу прощения). Суть в том, что функция предназначена не для простого копирования... Эту функцию предоставляет компонент (ActiveX DLL), и она не только копирует файл, но и размещает его в БД (в бинарном виде). Но это ну суть важно... Что конкретно делает эта функция я не знаю. Нужно, чтобы она (функция) не мешала окну жить в то время, как она выполняется.
ЗЫ. Все равно спасибо за внимание и ответ