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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д