tcpuuu 发表于 2010-8-12 23:51:55

[問題已解決]如何導入 進度條ㄚ?

本帖最后由 tcpuuu 于 2010-8-13 04:22 编辑

ProgressOn("複製C:\mpc 到 D:\Backnpc", "複製...", "0 ％ ")
For $i = 10 to 100 step 1
    sleep(15)
    ProgressSet( $i, $i & " ％ ")
Next
ProgressSet(100 , "完成", "完成")
sleep(100)
ProgressOff()
MsgBox ( 64, "複製C:\mpc 到 D:\Backnpc", "複製完成" ,3)
----------------------------------------------------------------------------------
我這樣是錯的
應該複製多跑的慢 , 複製少跑的快,如何導入要編GUI嗎?

afan 发表于 2010-8-13 00:39:14

_DirCopy('C:\mpc', 'D:\Backnpc')

Func _DirCopy($SourceDir, $Destdir)
        ;说明：利用Shell对象来实现复制文件对话框
        ;作者：Sanhen
        Local $Shell
        Local $FOF_SIMPLEPROGRESS = 16
        If Not FileExists($Destdir) Then DirCreate($Destdir)
        $Shell = ObjCreate("shell.application")
        $Shell.namespace($Destdir).CopyHere($SourceDir, $FOF_SIMPLEPROGRESS)
EndFunc   ;==>_DirCopy

tcpuuu 发表于 2010-8-13 04:22:29

謝謝 afan 超级版主.... 解決我很多問題
[問題已解決]
页: [1]
查看完整版本: [問題已解決]如何導入 進度條ㄚ?