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