Batch Convert PDF files to Flash Paper

' Script to convert PDF files to Flash Paper using the flash printer
' Reads files from folder "in" and outputs to folder "out"

flashPrinter= """C:\Program Files\Macromedia\FlashPaper 2\FlashPrinter.exe"""
inPath = "in\"
outPath = "out\"
delayMsec = 10000 'wait to let flashPrinter complete


If "CSCRIPT.EXE" <> UCase( Right( WScript.Fullname, 11 ) ) Then
'WScript.Interactive = false
WScript.Echo "To use this script enter: cscript " & WScript.ScriptName & vbcrlf & "or right click and select 'Open with Command Prompt'"
WScript.Quit 1
End If

Dim strMbox

Set objFileScripting = CreateObject("Scripting.FileSystemObject")
'Return folder object
Set objFolder = objFileScripting.GetFolder(inPath)
'return file collection In folder
Set filecollection = objFolder.Files

strMbox= MsgBox("Ready to process " & fileCollection.count & " files",1)
If strMbox = 2 Then
   Wscript.Echo "Cancelled"
   WScript.Quit
end if

   For Each filename In filecollection
      filename=right(filename,len(filename)-InStrRev(filename, "\"))
      if InStrRev(filename, ".") then 'remove extension if there is one
         FilenameNoExt=left(filename,InStrRev(filename, ".")-1)
      end if
      
      ' Run the flashprinter for each file
      command = flashPrinter & " " & inPath & filename & " -o " & outPath & filenameNoExt & ".swf"   
      Set objShell = CreateObject("WScript.Shell")
      'objShell.CurrentDirectory =
      Wscript.Echo "Processing: " & inPath & filename & " --> " & outPath & filenameNoExt & ".swf"
      objShell.Run(command)
      'Wait some for it to complete
      
      Wscript.Sleep delayMsec

   Next

Wscript.Echo "Done"
WScript.Quit