Board logo

标题: [问题求助] vbs怎么按照时间顺序排列输出遍历的文件夹 [打印本页]
作者: 328612167    时间: 2018-12-3 17:01     标题: vbs怎么按照时间顺序排列输出遍历的文件夹

本帖最后由 328612167 于 2018-12-5 09:59 编辑

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    时间: 2018-12-11 19:43

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



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2