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

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

  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 编辑 ]
批处理之家论坛官方 QQ 群 :【当前人数/人数上限】【2009-07-08】
群①:43011867(181/200);群②:(暂缺数据);群③:66165582(120/200)。

返回列表