[Maza Faka]

Creat0R
В итоге сделал так:

Код:

Dim $dest = "c:\Адреналин.avi", $i = 0
Run(@ComSpec & " /c copy /y d:\Video\Films\Адреналин.avi " & $dest, "", @SW_HIDE)

ProgressOn("Please wait...", "Copying file", "", -1, -1, 16)
AdlibEnable("Check", 500)

While 1
    Sleep(100)
WEnd

Func Check()
    If FileMove($dest, $dest, 1) Then
        AdlibDisable()
        ProgressSet(100, "Done")
        Sleep(500)
        Exit
    Else
        $i += 10
        If $i > 100 Then $i = 0
            ProgressSet($i, "file copyied")
        EndIf
    EndFunc