iTunes のプレイリスト作成スクリプト

Windows Script ノスゝメというページにMP3自動更新プレイリストを作成するスクリプトがあったのですが、WMI つかえば、もう少しスマートにできそうな気がしたので、ちょっと書いてみました。

PC上のMP3とAVI ファイルを検索して、ファイル出力しますが、MP3だけでよいという場合には11行目の

& "Where Extension ='mp3' or Extension='avi'")

を

& "Where Extension ='mp3'")

と変更すればO.K.


＝＝MakePlayList.vbs＝＝
Option explicit
Dim strComputer
Dim objWMIService
Dim colFiles
Dim objFIle
Dim strPlayList
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile "_
& "Where Extension ='mp3' or Extension='avi'")

For Each objFIle in colFiles
strPlayList = strPlayList & objFile.Drive & _
objFile.Path & objFile.FileName & "." & _
objFile.Extension & vbCrLf
Next

' プレイリスト作成

Dim objFSO
Dim strNewFile
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set strNewFile = objFSO.CreateTextFile(".\PlayList.m3u", True)
strNewFile.Write(strPlayList)
strNewFile.Close
Set strNewFile = Nothing
＝＝ここまで＝＝