vbs怎么按照时间顺序排列输出遍历的文件夹

328612167

vbs怎么按照时间顺序排列输出遍历的文件夹

1. Set fs = CreateObject("Scripting.FileSystemObject")
   
2. Set f = fs.GetFolder("c:")
   
3. Set fc = f.SubFolders
   
4. 
   
5. nn = 1
   
6. wjj = ""
   
7. For Each f1 In fc
   
8.                 wjj = wjj &vbcrlf& nn &" "&f1.DateCreated&"        "&f1.Name
   
9.                 nn=nn+1
   
10. Next
    
11. 
    
12. MsgBox wjj
    
13. WScript.Quit

复制代码

在网上搜到这个贴但是报错
http://www.sdky.org/news/2018-04-06/108467.html

1. Set objLogParser=CreateObject("MSUtil.LogQuery")
   
2. Set objInputFormat=CreateObject("MSUtil.LogQuery.FileSystemInputFormat")
   
3. objInputFormat.Recurse=0
   
4. 
   
5. Set objOutputFormat=CreateObject("MSUtil.LogQuery.NativeOutputFormat")
   
6. objOutputFormat.rtp=-1
   
7. 
   
8. strQuery="SELECT Name,CreationTime FROM 'C:\*.*'"&_
   
9. "WHERE NOT Attributes LIKE '%D%' ORDER BY CreationTime"
   
10. objLogParser.ExecuteBatch strQuery,objInputFormat,objOutputFormat

复制代码

328612167

找不到捷径，还是用原始的循环比较吧