06/09/12 19:29:56 5GCyJ/an
var WSHShell = WScript.CreateObject("WScript.Shell");
var Fso = new ActiveXObject("Scripting.FileSystemObject");
// .mp3ファイル名をmp3[]配列に格納
var folder = Fso.GetFolder("C:\\MP3");
var mp3 = [];
for (var e = new Enumerator(folder.Files); ! e.atEnd(); e.moveNext()) {
var f = e.item();
if (/\.mp3$/i.test(f))
mp3.push(f);
}
var i;
do {
// ランダムに並べ替え
for (i = 0; i < files.length; i++) {
var r = Math.floor(files.length * Math.random());
var t = mp3[i];
mp3[i] = mp3[r];
mp3[r] = t;
}
// プレイ
for (i = 0; i < files.length; i++)
WSHShell.Run(mp3[i], 3, true);
} while (true); // trueで無限ループ