/*
名称：生成带播放时间的音乐列表.JS
说明：拖放含音乐的目录到本JS文件图标上，即在当前目录生成播放列表。
　　　支持.mp3、.wma两种格式（其他可自动添加），播放列表名为MP3.XLS。
参考：（联盟现在打不开，是一个显示音乐播放时间的帖子）；
　　　其他搜索而得。
*/
var wsh = new ActiveXObject("Shell.Application");
pth = WScript.Arguments(0);
jsf = WScript.ScriptFullName;
cdr = jsf.substring(0,jsf.lastIndexOf('\\'));
mp3 = wsh.NameSpace(pth);
Itm = mp3.Items();
fso = new ActiveXObject("Scripting.FileSystemObject");
txt = fso.CreateTextFile(cdr + "\\mp3.xls",true);
i   = -1;
txt.Write ('歌曲列表');
txt.WriteBlankLines(1);
while (++i<Itm.Count) {
    mp3_name = mp3.GetDetailsOf(Itm.item(i),0);
    ft = mp3_name.substring(mp3_name.lastIndexOf("."));
    if (ft=='.mp3'||ft=='.wma') {
        mp3_time = mp3.GetDetailsOf(Itm.item(i),21);
        txt.WriteLine(mp3_name + '\t' + mp3_time);
    }
}
txt.Close();
WScript.Echo ('完成！');
复制代码