PowerPointのスライドを画像ファイルとしてExportするVBScript

##使い方
vbsファイルのアイコンにPowerPointファイルを Drag & Dropすると
PowerPointの各スライドを画像ファイルとして出力します。

##コード

'[PowerPointExport.vbs]'

Option Explicit
Dim p, f, s
With CreateObject("PowerPoint.Application")
    Set p = .Presentations.Open(WScript.Arguments(0), -1, 0, 0)
    With CreateObject("Scripting.FileSystemObject")
        f = .BuildPath(.GetParentFolderName(WScript.ScriptFullName), p.Name)
        If Not .FolderExists(f) Then .CreateFolder f
        For Each s In p.Slides
            s.Export .BuildPath(f, s.SlideNumber & ".png"), "png"
        Next
    End With
    .Quit
End With