Цитата Medic84:
я то нашел, и оно впринципе работает, на не так как надо »
|
Это не то. Я и сам затрудняюсь найти тот самый пример, но есть он у меня в архивах на харде
Вопрос только вот в чём; что имеется в виду под «что бы действительно отображал процесс копирования»? Просто имитация прогресса, или реально отображение всего прогресса (включая имена файлов, оставшееся время и т.п.)?
P.S
А вариант с отображением системного диалога копирования подходит?
Вот пока пример для системного диалога:
Код:
_FileCopy("C:\Source", "C:\Dest")
Func _FileCopy($sSource, $sDest, $iShowConfirm=1, $iShowProgress=1)
Local Const $FOF_RESPOND_YES = 64
Local Const $FOF_NOCONFIRMATION = 16
Local Const $FOF_SIMPLEPROGRESS = 256
Local $iFlags = 0
If $iShowConfirm = 0 Then $iFlags = BitOR($iFlags, $FOF_NOCONFIRMATION)
If $iShowProgress <> 0 Then $iFlags = BitOR($iFlags, $FOF_SIMPLEPROGRESS)
If Not FileExists($sDest) Then DirCreate($sDest)
Local $oShell = ObjCreate("Shell.Application")
Local $oNameSpace = $oShell.NameSpace($sDest)
$oNameSpace.MoveHere($sSource, $iFlags)
EndFunc