#!ruby
# -*- Ruby -*-
# PDA-03markII Playlist maker (ruby + win32ole)
# version 1.4 by NaO <ohtaki@wig.nu>

drv = "e:"
dir = drv + "/music/*.[mM][pP]3"
pl = drv + "/PDA032.PL"
files = []

require 'kconv'
require 'win32ole'

fs = WIN32OLE.new('Scripting.FileSystemObject')
Dir.glob(dir) {|f| files << fs.GetFile(f).ShortName.toeuc.upcase.tosjis }
files.sort!
files.unshift(files.size.to_a)
f = open(pl, "wb")
files.each {|x| f.print x, "\x0a"}