40歳からのキャリアチェンジ

20代はエンジニア・PM、30代はWeb系エンジニア向けのキャリアアドバイザー。40代の今はフリーランスで開発含めて色々やってます。技術ネタとしてはRuby/RailsとJavaScript関連あたり

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
==ここまで==