1. 首頁 > 生活百科 > >

易語言怎么寫復制

生活百科復制

1.易語言怎么寫復制目錄.版本 2
.支持庫 spec
.子程序 復制目錄
.參數 要復制的目錄，文本型
.參數 復制到的地方，文本型
.局部變量 文件夾列表，文本型，，"0"
.局部變量 操作目錄組，文本型，，"0"
.局部變量 文件名，文本型
.局部變量 i，整數型
.局部變量 臨時文件夾名，文本型
.局部變量 文件夾名，文本型
.局部變量 初始路徑，文本型
.局部變量 復制路徑，文本型
.如果真 （要復制的目錄 ≠ “” 且 復制到的地方 ≠ “”）
加入成員 （操作目錄組，要復制的目錄 + “\”）
加入成員 （文件夾列表，要復制的目錄）
.循環判斷首 （）
文件名 = 尋找文件 （操作目錄組 [1] + “*.*”，#子目錄）
.判斷循環首 （文件名 ≠ “”）
.如果真 （文件名 ≠ “.” 且 文件名 ≠ “..”）
加入成員 （操作目錄組，操作目錄組 [1] + 文件名 + “\”）
加入成員 （文件夾列表，操作目錄組 [1] + 文件名）
.如果真結束
文件名 = 尋找文件 （，#子目錄）
.判斷循環尾 （）
刪除成員 （操作目錄組，1, 1）
.循環判斷尾 （取數組成員數 （操作目錄組） >0)
初始路徑 = 取文本左邊 （要復制的目錄，倒找文本 （要復制的目錄，“\”，，假））
.判斷開始 （取文本右邊 （復制到的地方，1） ≠ “\”）
復制路徑 = 復制到的地方 + “\”
.默認
復制路徑 = 復制到的地方
.判斷結束
.計次循環首 （取數組成員數 （文件夾列表），i)
臨時文件夾名 = 子文本替換 （文件夾列表 [i]，初始路徑，，，，真）
延遲 （1）
調試輸出 （“正在創建文件夾：” + 臨時文件夾名）
創建目錄 （復制到的地方 + “\” + 臨時文件夾名）
文件名 = 尋找文件 （文件夾列表 [i] + “\*”, ）
.判斷循環首 （文件名 ≠ “”）
延遲 （1）
調試輸出 （“正在復制文件：” + 文件名）
復制文件 （初始路徑 + 臨時文件夾名 + “\” + 文件名，復制路徑 + 臨時文件夾名 + “\” + 文件名）
文件名 = 尋找文件 （，）
.判斷循環尾 （）
.計次循環尾 （）
調試輸出 （“復制完成”）
.如果真結束
2.易語言復制粘貼熱鍵怎么寫子程序 _按鈕1_被單擊
.如果 （復制文件夾 （“D:\youxi\cjsh”, “E:\youxi\cjsh”，） = 真）
信息框 （“復制文件夾成功！”，0, ）
.否則
信息框 （“復制文件夾失敗！”，0, ）
.如果結束
.子程序 復制文件夾，邏輯型，公開，成功返回真，失敗返回假
.參數 被復制的文件夾，文本型
.參數 復制到的文件夾，文本型
.參數 是否處理事件，邏輯型
.局部變量 路徑，文本型
.局部變量 被復制的文件夾數組，文本型，，"0"
.局部變量 復制到的文件夾文本，文本型
.如果真 （尋找文件 （被復制的文件夾，#子目錄） = “”）
.如果真 （尋找文件 （被復制的文件夾，#存檔文件 + #只讀文件 + #隱藏文件 + #系統文件） ≠ “”）
返回 （復制文件 （被復制的文件夾，復制到的文件夾））
.如果真結束
返回 （假）
.如果真結束
【易語言怎么寫復制】.如果真 （創建目錄 （復制到的文件夾） = 假 且 尋找文件 （復制到的文件夾，#子目錄） = “” 且 位與 （取文件屬性 （復制到的文件夾），#子目錄） = 0 且 取文本長度 （復制到的文件夾） >3)
返回 （假）
.如果真結束