Re: Запуск функции в фоне
От: Silent_Sky Россия http://www.rsdn.ru/tools/member.aspx?id=
Дата: 10.12.02 11:48
Оценка:
Здравствуйте, КДА, Вы писали:

КДА>Здравствуйте.

КДА>Нужно запустить функцию, которая копирует файл. Если файл большой, поток в котором выполняктся программа "подвисает". Т.е. окно программы не отвечает (не складывается, не обновляется ...), до тех пор, пока функция не закончит работать. Как из 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
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.