[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
1楼 跳转到 »
发表于 2009-11-22 14:22 | 显示全部帖子
只能用vbs
  1. on error resume next

  2. strFolder = "D:\music"

  3. set fso = CreateObject("Scripting.FileSystemObject")

  4. set ts = fso.OpenTextFile("music.txt", 2, true)

  5. set wmp = CreateObject("WMPlayer.ocx")

  6. for each f in fso.GetFolder(strFolder).Files

  7.     set oMedia = wmp.newMedia(f.path)

  8.     'wsh.sleep 100 '等待识别

  9.     ts.WriteLine f.name & vbTab & oMedia.durationString

  10. next

  11. ts.Close
复制代码
1

评分人数

命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
2楼
发表于 2009-11-22 14:28 | 显示全部帖子

回复 3楼 的帖子

请上VB论坛。。。
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
3楼
发表于 2009-11-22 14:36 | 显示全部帖子

回复 5楼 的帖子

楼主既然会VB，这个问题还不会自己解决吗？
判断一下
if LCase(fso.GetExtensionName(f.path)) <> "lrc" then
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

返回列表