[Maza Faka]

Хочу написать скрипт со "сфетофором", что бы при копировании файла отображался прогресс-бар, но почему-то функция AdlibEnable() начинает работать после того как скопируется файл, что я делаю не так:

Код:

Dim $source = "d:\Video\Films\Адреналин.avi", $dest = "c:\Адреналин.avi", $i = 0
ProgressOn("Please wait...", "Now copying file", "", -1, -1, 16)
AdlibEnable("Rename", 500)

FileCopy($source, $dest, 1)

AdlibDisable()
ProgressSet(100, "Done")
Sleep(100)
ProgressOff()

Func Rename()
    $i += 1
    If $i = 100 Then $i = 0
        ProgressSet($i, $i & " percent")
    EndFunc