易語言操作硬盤txt掃描刪除
更新時間:2018年11月16日 15:38:18 投稿:laozhang
在本篇內(nèi)容里我們給大家?guī)砹擞靡渍Z言編寫的全盤TXT文件掃描并進(jìn)行刪除的操作,需要的朋友們可以參考下。
本源碼主要內(nèi)容就是對硬盤里的txt文檔文件進(jìn)行掃描并刪除的操作,下面是所有代碼:
子程序 遍歷目錄, , , 輸出指定目錄下的所有文件,包括子目錄
.參數(shù) 參目錄, 文本型, , 不帶最后的“\”
.局部變量 文件名, 文本型
.局部變量 目錄數(shù)組, 文本型, , "0"
.局部變量 i, 整數(shù)型
.局部變量 文件類型, 整數(shù)型
.如果真 (信息框 (“即將遍歷指定目錄并刪除所有TXT文件!是否繼續(xù)?”, 1, ) ≠ 0)
返回 ()
.如果真結(jié)束
文件類型 = 位或 (#存檔文件, #只讀文件, #系統(tǒng)文件, #隱藏文件, #子目錄)
文件名 = 尋找文件 (選擇 (取文本右邊 (參目錄, 1) ≠ “\”, 參目錄 + “\”, 參目錄) + “*.*”, 文件類型)
.如果真 (文件名 = “”)
返回 () ' 設(shè)定終止條件
.如果真結(jié)束
.循環(huán)判斷首 ()
.如果 (位與 (取文件屬性 (參目錄 + “\” + 文件名), #子目錄) ≠ 0)
' 注意這里不能直接遍歷,要先存入數(shù)組,
' 否則就是開啟了一個新的尋找文件的過程,
' 導(dǎo)致無法列正確的文件
加入成員 (目錄數(shù)組, 文件名) ' 把目錄先存入數(shù)組中
.否則
.如果真 (到小寫 (取文本右邊 (文件名, 4)) = “.txt”)
刪除文件 (參目錄 + “\” + 文件名)
.如果真結(jié)束
' 輸出調(diào)試文本 (參目錄 + “\” + 文件名) ' 文件名則輸出
.如果結(jié)束
' 尋找下一個
文件名 = 尋找文件 (, 文件類型)
.循環(huán)判斷尾 (文件名 ≠ “”)
.計次循環(huán)首 (取數(shù)組成員數(shù) (目錄數(shù)組), i)
.如果真 (目錄數(shù)組 [i] ≠ “.” 且 目錄數(shù)組 [i] ≠ “..”)
' 不是當(dāng)前目錄和父目錄才進(jìn)行掃描
遍歷目錄 (參目錄 + “\” + 目錄數(shù)組 [i]) ' 遞歸調(diào)用子程序本身
.如果真結(jié)束
.計次循環(huán)尾 ()
感謝大家對腳本之家的支持,大家可以測試下代碼內(nèi)容。
您可能感興趣的文章:
相關(guān)文章
易語言設(shè)置在滾動條的間隙處單擊后滾動條位置的增減數(shù)值
今天小編就為大家分享一篇關(guān)于易語言設(shè)置在滾動條的間隙處單擊后滾動條位置的增減數(shù)值,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧2018-11-11
易語言通過計算替換字節(jié)實現(xiàn)酷狗音樂緩存文件轉(zhuǎn)MP3的代碼
今天小編就為大家分享一篇關(guān)于易語言通過計算替換字節(jié)實現(xiàn)酷狗音樂緩存文件轉(zhuǎn)MP3的代碼,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧2018-11-11

