.子程序 _按鈕1_被單擊
.如果 (復制文件夾 (“D:\youxi\cjsh”, “E:\youxi\cjsh”, ) ＝ 真)
信息框 (“復制文件夾成功！”, 0, )
.否則
信息框 (“復制文件夾失敗！”, 0, )
.如果結束
.子程序 復制文件夾, 邏輯型, 公開, 成功返回真，失敗返回假
.參數 被復制的文件夾, 文本型
.參數 復制到的文件夾, 文本型
.參數 是否處理事件, 邏輯型
.局部變量 路徑, 文本型
.局部變量 被復制的文件夾數組, 文本型, , "0"
.局部變量 復制到的文件夾文本, 文本型
.如果真 (尋找文件 (被復制的文件夾, #子目錄) ＝ “”)
.如果真 (尋找文件 (被復制的文件夾, #存檔文件 ＋ #只讀文件 ＋ #隱藏文件 ＋ #系統文件) ≠ “”)
返回 (復制文件 (被復制的文件夾, 復制到的文件夾))
.如果真結束
返回 (假)
.如果真結束
.如果真 (創建目錄 (復制到的文件夾) ＝ 假 且 尋找文件 (復制到的文件夾, #子目錄) ＝ “” 且 位與 (取文件屬性 (復制到的文件夾), #子目錄) ＝ 0 且 取文本長度 (復制到的文件夾) ＞ 3)
返回 (假)
.如果真結束
路徑 ＝ 被復制的文件夾
.如果真 (取文本右邊 (路徑, 1) ≠ “\”)
路徑 ＝ 路徑 ＋ “\”
.如果真結束
加入成員 (被復制的文件夾數組, “”)
復制到的文件夾文本 ＝ 復制到的文件夾
.如果真 (取文本右邊 (復制到的文件夾文本, 1) ≠ “\”)
復制到的文件夾文本 ＝ 復制到的文件夾文本 ＋ “\”
.如果真結束
返回 (復制文件夾 (路徑, 被復制的文件夾數組, 復制到的文件夾文本, 是否處理事件))