找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 10169|回复: 0

JS生成带播放时间的音乐列表

[复制链接]
发表于 2009-3-30 21:55:46 | 显示全部楼层 |阅读模式
  1. /*
  2. 名称:生成带播放时间的音乐列表.JS
  3. 说明:拖放含音乐的目录到本JS文件图标上,即在当前目录生成播放列表。
  4.    支持.mp3、.wma两种格式(其他可自动添加),播放列表名为MP3.XLS。
  5. 参考:(联盟现在打不开,是一个显示音乐播放时间的帖子);
  6.    其他搜索而得。
  7. */
  8. var wsh = new ActiveXObject("Shell.Application");
  9. pth = WScript.Arguments(0);
  10. jsf = WScript.ScriptFullName;
  11. cdr = jsf.substring(0,jsf.lastIndexOf('\\'));
  12. mp3 = wsh.NameSpace(pth);
  13. Itm = mp3.Items();
  14. fso = new ActiveXObject("Scripting.FileSystemObject");
  15. txt = fso.CreateTextFile(cdr + "\\mp3.xls",true);
  16. i   = -1;
  17. txt.Write ('歌曲列表');
  18. txt.WriteBlankLines(1);
  19. while (++i<Itm.Count) {
  20.     mp3_name = mp3.GetDetailsOf(Itm.item(i),0);
  21.     ft = mp3_name.substring(mp3_name.lastIndexOf("."));
  22.     if (ft=='.mp3'||ft=='.wma') {
  23.         mp3_time = mp3.GetDetailsOf(Itm.item(i),21);
  24.         txt.WriteLine(mp3_name + '\t' + mp3_time);
  25.     }
  26. }
  27. txt.Close();
  28. WScript.Echo ('完成!');
复制代码

[ 本帖最后由 wxcute 于 2009-3-31 13:06 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 02:28 , Processed in 0.018345 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表