按時間搜索文件代碼
.版本 2.支持庫 iext.程序集 窗口程序集1.子程序 _按鈕_搜索_被單擊文件搜索 (“C:”, “*.*”).子程序 文件搜索.參數 欲尋找的目錄, 文本型, , 如:C:,表示C盤,記得C字后面兩點一定要寫.參數 欲尋找的文件名, 文本型, , 如果尋找全部文件可以填入*.*或*.txt只找txt文件.局部變量 局部_子目錄, 文本型.局部變量 局部_文件名, 文本型.局部變量 局部_文件時間, 日期時間型.局部變量 局部_項目索引, 整數型.如果真 (取文本右邊 (欲尋找的目錄, 1) ≠ “/”) 欲尋找的目錄 = 欲尋找的目錄 + “/”.如果真結束局部_文件名 = 尋找文件 (欲尋找的目錄 + 欲尋找的文件名, ).判斷循環首 (局部_文件名 ≠ “”) 局部_文件時間 = 取文件時間 (欲尋找的目錄 + 局部_文件名) .如果真 (局部_文件時間 > 日期框_起始.今天 且 局部_文件時間 < 日期框_結束.今天) 局部_項目索引 = 超級列表框1.插入表項 (, , , , , ) 超級列表框1.置標題 (局部_項目索引, 0, 欲尋找的目錄 + 局部_文件名) 超級列表框1.置標題 (局部_項目索引, 1, 到文本 (局部_文件時間)) .如果真結束 處理事件 () 局部_文件名 = 尋找文件 (, ).判斷循環尾 ()局部_子目錄 = 尋找文件 (欲尋找的目錄 + “*.*”, #子目錄).判斷循環首 (局部_子目錄 ≠ “”) .如果真 (取文本左邊 (局部_子目錄, 1) ≠ “.”) 處理事件 () 文件搜索 (欲尋找的目錄 + 局部_子目錄 + “/”, 欲尋找的文件名) .如果真結束 局部_子目錄 = 尋找文件 (, #子目錄).判斷循環尾 ()
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網的支持。
|
新聞熱點
疑難解答