Копирование файла (ов) с диалогом анимации
Данный код копирует файл, хотя можно с помощью подобного кода удалять, перемещать и переименовывать файл (ы)
Code
#Include "windows.bi"
#Include "win/shellapi.bi"
Dim SHFOS As SHFILEOPSTRUCT
Dim sBuf As String*256 = "C:\1.iso"+Chr(0)
Dim sDestPath As String*128 = "C:\FolderDest\"+Chr(0)
SHFOS.wFunc = FO_COPY 'Копирование , хотя возможны и другие:
'FO_DELETE - удаление
'FO_MOVE - перемещение
'FO_RENAME - переименование
SHFOS.pFrom = @sBuf
SHFOS.pTo = @sDestPath
if SHFileOperation(@SHFOS) = 0 Then
MessageBox(0,"Копирование завершено","Сообщение",0)
EndIf
