參數lpExistingFileName，文本類型。
參數lpNewFileName，文本類型。
參數lpProgressRoutine，子程序指針
參數lpData，，地址。
。參數pbCancel
參數dwCopyFlags.DLL命令PathFindFileNameA，文本類型，" shlwapi.dll "，" pathfindfilenamea "
。參數pPath，文本類型代碼:-。
代碼:-版本2
。支持庫外殼。裝配窗裝配1。Subroutine _ button 1_被點擊。
。局部變量文件名，文本文件名=編輯框1。內容
文件名= pathfindfilenamea(文件名)
詳情請參考MSDN。
僅winnt
如果為真(編輯框1。內容≦"和編輯框2。內容≦”；)
CopyFileExA(編輯框1。內容，選擇(取文本的右邊(編輯框2。內容，1) = "，編輯框2。內容，編輯框2。Content+\")+file &，& CopyProgressRoutine，0，0，1)
如果真的結束了。
。子程序CopyProgressRoutine，整數類型。
。參數TotalFileSize，長整數。
。參數TotalBytesTransferred，長整型。
。參數StreamSize，長整型。
。參數StreamBytesTransferred，長整型。
。參數dwStreamNumber，整數類型
。參數dwCallbackReason，整數類型
。參數hSourceFile，整數類型。
。參數hDestinationFile，整數。
參數lpData，整數型進度條1。'位置=傳輸的總字節數÷文件總大小× 100 '如果希望百分比更準確，請將其轉換為小數並除以。
標簽1。Title = To Text(進度條1。位置)+" "
處理事件()
Return (0)' Return 0繼續復制。
。子程序_按鈕2_被點擊。如果為真(常規對話框1。Open())
編輯框1。Content =常規對話框1。文件名
如果真的結束了。
。子程序_按鈕3_被點擊。
。本地變量目錄，文本目錄=瀏覽文件夾("選擇文件夾"，)
。如果為真(目錄≡號)
編輯框2。內容=內容
如果結束了，可以直接把代碼復制到Yi語言進行調試。