亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

易語言操作硬盤txt掃描刪除

 更新時(shí)間: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ù)組,
    ' 否則就是開啟了一個(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)尾 ()

 

感謝大家對腳本之家的支持,大家可以測試下代碼內(nèi)容。

相關(guān)文章

最新評論