FreeBasic
Главная
Вход
Регистрация
Среда, 16.10.2024, 06:34Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Копирование файла (ов) с диалогом анимации
haavДата: Суббота, 27.10.2012, 08:16 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1366
Репутация: 49
Статус: Offline
Копирование файла (ов) с диалогом анимации


Данный код копирует файл, хотя можно с помощью подобного кода удалять, перемещать и переименовывать файл (ы)

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


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
  • Страница 1 из 1
  • 1
Поиск: