婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 用vbs實現按創建日期的順序列出一個文件夾中的所有文件

用vbs實現按創建日期的順序列出一個文件夾中的所有文件

熱門標簽:百度地圖標注是什么意思 外呼線路中繼線是什么 合肥高德地圖標注 深圳外呼系統收費 拉薩外呼系統業務 廣州ai電銷機器人一般多少錢 怎么看地圖標注 外呼系統免費招代理 外呼系統telrobot
問:
你好,腳本專家!如何按創建日期的順序列出一個文件夾中的所有文件?

-- CL

答:
你好,CL。您知道,如果我們雄心勃勃并且努力工作,我們會坐下來為您寫一個腳本,以使用 WMI 返回一個文件夾中的所有文件。該腳本將獲取有關所有這些文件的信息,并將該數據存儲在未連接的記錄集中。然后,在該記錄集中設置排序順序以按創建日期和時間對文件進行排列。(接著,我們進行大量的重復性工作,以將 WMI 的日期時間值轉換為易讀的日期時間格式。)最后,我們將記錄集中的所有值回顯到屏幕上。它需要花費大量時間并編寫許多代碼,但最終您會得到已排序的文件列表,而且每個人都會說“哇,那些腳本專家真是為讀者盡心盡力,不是嗎?”

而事實上,我們并非雄心勃勃和努力工作;我們只是腳本專家。作為腳本專家,我們一直在尋找最快速、最簡便的解決問題的方法。因此,我們沒有去寫一個冗長而復雜的腳本,而是弄來了一份 Log Parser 2.2,并匆忙完成了以下幾行代碼:

復制代碼 代碼如下:

Set objLogParser = CreateObject("MSUtil.LogQuery") 
Set objInputFormat = CreateObject("MSUtil.LogQuery.FileSystemInputFormat") 
objInputFormat.Recurse = 0 

Set objOutputFormat = CreateObject("MSUtil.LogQuery.NativeOutputFormat") 
objOutputFormat.rtp = -1 

strQuery = "SELECT Name, CreationTime FROM 'C:\Scripts\*.*' "  _ 
    "WHERE NOT Attributes LIKE '%D%' ORDER BY CreationTime" 
objLogParser.ExecuteBatch strQuery, objInputFormat, objOutputFormat 

猜猜看?此腳本不但能正常工作,還能返回文件列表(按創建日期和時間排序),而不管實際情況怎樣。太酷了。

當然,我們通常建議不使用非操作系統內置的解決方案;因為我們不想讓人們下載和安裝一些不是絕對必需的東西。然而,當要列舉文件時,很有必要下載和安裝 Log Parser;當您不得不獲得有關一組文件的信息時,您會發現 Log Parser 方法優于 WMI 或 FileSystemObject。Log Parser 的七八行代碼比得上 WMI 的六七十行代碼嗎?我們會把決定權留給您。

我們不會花時間介紹有關 Log Parser 的所有信息;有關詳細信息,您可以參閱“腳本故事”專欄您需要的所有內容就是日志(即 Log Parser)。現在,我們只需注意,腳本從創建 Log Parser 對象的實例開始,使用易記憶的名稱 MSUtil.LogQuery 以便于更好的記憶。然后,我們創建兩個其他對象,第一個指定我們正在使用的對象(在此情況下為文件系統,雖然我們也可以使用事件日志、Active Directory、注冊表和其他項),第二個指明我們要使用的輸出類型(在此示例腳本中,我們要做的所有事情就是將數據寫入命令窗口)下列兩行代碼創建輸入對象,并告訴 Log Parser 不從任何子文件夾檢索文件:

Set objInputFormat = CreateObject("MSUtil.LogQuery.FileSystemInputFormat")
objInputFormat.Recurse = 0

如果我們確實要檢索任意或所有子文件夾的值,該怎么辦?在該情況下,我們必須要做的所有事情就是將 Recurse 屬性的值設置為 -1:

objInputFormat.Recurse = -1

同時,下列兩行代碼創建輸出對象,并告訴 Log Parser 顯示所有數據而不要暫停:

Set objOutputFormat = CreateObject("MSUtil.LogQuery.NativeOutputFormat")
objOutputFormat.rtp = -1

或者,我們可以告訴 Log Parser 顯示 10 行數據,然后暫停,直到我們按鍵盤上的某個鍵,然后再顯示下 10 行數據。若要按每 10 行一批的規律顯示數據,我們必須要做的所有事情就是將 rtp 屬性的值設置為 10:

objOutputFormat.rtp = 10

接下來配置 SQL 查詢以檢索文件信息。如果您對 SQL 有一些了解,此查詢應該相對容易分析一些;如您所見,我們正要查詢 C:\Scripts 中所有文件的 Name 和 CreationTime。此外,我們要使返回的數據按創建日期和時間順序排列,最先創建的文件排在最前面:

strQuery = "SELECT Name, CreationTime FROM 'C:\Scripts\*.*' "  _
    "WHERE NOT Attributes LIKE '%D%' ORDER BY CreationTime DESC"

此查詢中唯一不尋常的就是 WHERE 子句:WHERE NOT Attributes LIKE '%D%'。不用作過多的解釋,此子句篩選出文件夾,從而只返回文件。包含 Directory 屬性的文件系統對象就是文件夾;因為我們不想要文件夾,所以使用 WHERE NOT 語法清除擁有 Directory(縮寫為 %D%)屬性的所有對象。

最后,調用 ExecuteBatch 方法來運行查詢并將返回的數據寫入命令窗口。一兩秒鐘之后,我們將獲得如下所示的內容:


我們不需要輸入任何特殊的命令就可以獲得這一精密的表格輸出;Log Parser 為我們處理所有問題。它真是太棒了,不是嗎?

誠然,我們不必費很大力氣就可以獲得這些結果。而且它既快捷又簡便。您可以這么來看:任何人都不必知道我們不努力工作,不是嗎?
您可能感興趣的文章:
  • 用VBSrcipt判斷是否是日期
  • 用vbs判斷一個日期是否在指定的時段內
  • 用vbs實現的簡單的服務器文件備份辦法壓縮文件名自動按日期命名
  • vbs下通過日期查找文件夾的代碼
  • VBS的字符串及日期操作相關函數
  • 用VBS修改(設置)系統時間和日期的代碼
  • vbs獲取當前時間日期的代碼
  • 使用VBS獲取當前日期的前一天 并修正輸出格式

標簽:周口 延安 廣安 漳州 臺灣 六安 嘉興 玉林

巨人網絡通訊聲明:本文標題《用vbs實現按創建日期的順序列出一個文件夾中的所有文件》,本文關鍵詞  用,vbs,實現,按,創建,日期,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《用vbs實現按創建日期的順序列出一個文件夾中的所有文件》相關的同類信息!
  • 本頁收集關于用vbs實現按創建日期的順序列出一個文件夾中的所有文件的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 内丘县| 芜湖县| 长沙县| 满城县| 汉川市| 孝感市| 六安市| 长丰县| 南投县| 浙江省| 尖扎县| 平舆县| 秀山| 鹤山市| 化德县| 璧山县| 柳河县| 株洲市| 新郑市| 平阴县| 宜章县| 松阳县| 台东市| 策勒县| 昭通市| 囊谦县| 武平县| 大田县| 吴忠市| 甘南县| 抚顺市| 永宁县| 延津县| 曲松县| 格尔木市| 惠水县| 滨海县| 百色市| 宁化县| 临泉县| 巴彦淖尔市|