Sub moveBMP()
Dim oJs As Object
Set oJs = CreateObject("ScriptControl"): oJs.Language = "RubyScript"
oJs.eval ("pth='" & [d2] & "';Dir.chdir(pth);pth+='\圖片';Dir.mkdir" _
& "(pth) unless File.directory?(pth);Dir['**/*BMP'].each{" _
& "|o|File.rename(o,pth+'/'+File.basename(o))};")
Set oJs = Nothing
End Sub