GSPlayer用プレイリスト選択スクリプト

前回のエントリで、プレイリストを自動的につくるMortScriptをつくりました。
ただ、上下のフォルダ内にプレイリストが点在する形になるので、プレイリストを選択するときにちょっと面倒。
そういうわけで、プレイリストをまとめて表示して、それを選択すると自動的にGSPlayerが起動するようにスクリプトを組みました（m3uの関連付けがされていることが前提。

これで、GSPlayerでやりたいことは全部できたかなー。


####################################################3
##親ディレクトリ指定（直接書換のこと）
Dir_OYA = "\メモリ カード\audio"

##親ディレクトリ内プレイリスト抽出
i=0
ForEach File_work in files(Dir_OYA & "\*.m3u")
i=i+1
m3u_list[i]=File_work
len=length(m3u_list[i])
m3u_lists[i]=replace(substr(m3u_list[i],1,len-4),Dir_OYA & "\","")
EndForEach

##子ディレクトリ内プレイリスト抽出
j=0
ForEach Dir_work in directories(Dir_OYA & "\*")
j=j+1
dir_name[j]=Dir_work
EndForEach

For k=1 to j
ForEach File_work in files(Dir_name[k] & "\*.m3u")
i=i+1
m3u_list[i]=File_work
len=length(m3u_list[i])
m3u_lists[i]=replace(substr(m3u_list[i],1,len-4),Dir_name[k] & "\","")
EndForEach
next

count=choice("プレイリスト選択","プレイリストを選択して下さい",0,0,m3u_lists)
run(m3u_list[count])
sleep(200)

##リストをソートして、一曲目から再生
SendCommand("GSPlayerK", 40035)
sleep(300)
MouseDblClick("GSPlayerK",50,75)