API функция копирования файла - VB
Формулировка задачи:
Привет.
Есть прога, которая после обработки копирует файл на удаленный сервак. Процедура иногда занимет несколько минут (файлики большие).
Вопрос: Как вызвать API функцию копирования с показом стандартного окна копирования файла с прогрес-баром ?
а то юзеры пугаться начинают что висят....
Решение задачи: «API функция копирования файла»
textual
Листинг программы
- Dim objShell As Shell
- Dim objFolder As Folder
- Set objShell = New Shell
- Set objFolder = objShell.NameSpace('D:Test')
- If (Not objFolder Is Nothing) Then
- objFolder.CopyHere ('D:MyFiles*.txt')
- End If
- Set objFolder = Nothing
- Set objShell = Nothing
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
