溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
按時間搜索文件代碼
.版本 2
.支持庫 iext
.程序集 窗口程序集1
.子程序 _按鈕_搜索_被單擊
文件搜索 (“C:”, “*.*”)
.子程序 文件搜索
.參數 欲尋找的目錄, 文本型, , 如：C:,表示C盤,記得C字后面兩點一定要寫
.參數 欲尋找的文件名, 文本型, , 如果尋找全部文件可以填入*.*或*.txt只找txt文件
.局部變量 局部_子目錄, 文本型
.局部變量 局部_文件名, 文本型
.局部變量 局部_文件時間, 日期時間型
.局部變量 局部_項目索引, 整數型
.如果真 (取文本右邊 (欲尋找的目錄, 1) ≠ “\”)
欲尋找的目錄 ＝ 欲尋找的目錄 ＋ “\”
.如果真結束
局部_文件名 ＝ 尋找文件 (欲尋找的目錄 ＋ 欲尋找的文件名, )
.判斷循環首 (局部_文件名 ≠ “”)
局部_文件時間 ＝ 取文件時間 (欲尋找的目錄 ＋ 局部_文件名)
.如果真 (局部_文件時間 ＞ 日期框_起始.今天 且 局部_文件時間 ＜ 日期框_結束.今天)
局部_項目索引 ＝ 超級列表框1.插入表項 (, , , , , )
超級列表框1.置標題 (局部_項目索引, 0, 欲尋找的目錄 ＋ 局部_文件名)
超級列表框1.置標題 (局部_項目索引, 1, 到文本 (局部_文件時間))
.如果真結束
處理事件 ()
局部_文件名 ＝ 尋找文件 (, )
.判斷循環尾 ()
局部_子目錄 ＝ 尋找文件 (欲尋找的目錄 ＋ “*.*”, #子目錄)
.判斷循環首 (局部_子目錄 ≠ “”)
.如果真 (取文本左邊 (局部_子目錄, 1) ≠ “.”)
處理事件 ()
文件搜索 (欲尋找的目錄 ＋ 局部_子目錄 ＋ “\”, 欲尋找的文件名)
.如果真結束
局部_子目錄 ＝ 尋找文件 (, #子目錄)
.判斷循環尾 ()
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對億速云的支持。如果你想了解更多相關內容請查看下面相關鏈接
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
