您好,登錄后才能下訂單哦!
本源碼主要內(nèi)容就是對(duì)硬盤里的txt文檔文件進(jìn)行掃描并刪除的操作,下面是所有代碼:
子程序 遍歷目錄, , , 輸出指定目錄下的所有文件,包括子目錄 .參數(shù) 參目錄, 文本型, , 不帶最后的“\” .局部變量 文件名, 文本型 .局部變量 目錄數(shù)組, 文本型, , "0" .局部變量 i, 整數(shù)型 .局部變量 文件類型, 整數(shù)型 .如果真 (信息框 (“即將遍歷指定目錄并刪除所有TXT文件!是否繼續(xù)?”, 1, ) ≠ 0) 返回 () .如果真結(jié)束 文件類型 = 位或 (#存檔文件, #只讀文件, #系統(tǒng)文件, #隱藏文件, #子目錄) 文件名 = 尋找文件 (選擇 (取文本右邊 (參目錄, 1) ≠ “\”, 參目錄 + “\”, 參目錄) + “*.*”, 文件類型) .如果真 (文件名 = “”) 返回 () ' 設(shè)定終止條件 .如果真結(jié)束 .循環(huán)判斷首 () .如果 (位與 (取文件屬性 (參目錄 + “\” + 文件名), #子目錄) ≠ 0) ' 注意這里不能直接遍歷,要先存入數(shù)組, ' 否則就是開啟了一個(gè)新的尋找文件的過程, ' 導(dǎo)致無法列正確的文件 加入成員 (目錄數(shù)組, 文件名) ' 把目錄先存入數(shù)組中 .否則 .如果真 (到小寫 (取文本右邊 (文件名, 4)) = “.txt”) 刪除文件 (參目錄 + “\” + 文件名) .如果真結(jié)束 ' 輸出調(diào)試文本 (參目錄 + “\” + 文件名) ' 文件名則輸出 .如果結(jié)束 ' 尋找下一個(gè) 文件名 = 尋找文件 (, 文件類型) .循環(huán)判斷尾 (文件名 ≠ “”) .計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (目錄數(shù)組), i) .如果真 (目錄數(shù)組 [i] ≠ “.” 且 目錄數(shù)組 [i] ≠ “..”) ' 不是當(dāng)前目錄和父目錄才進(jìn)行掃描 遍歷目錄 (參目錄 + “\” + 目錄數(shù)組 [i]) ' 遞歸調(diào)用子程序本身 .如果真結(jié)束 .計(jì)次循環(huán)尾 ()
感謝大家對(duì)億速云的支持,大家可以測(cè)試下代碼內(nèi)容。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。