title: vbs find file in directory and print with popout window
body: <p>I have script that printing specific file, but it's getting hard to make over 150 .vbs files for each document to be printed, 
  is there any way to have pop-out window where i can type file name, then script find it in folder and print it with 20 copies.
  I have PDF, WORD and Excel files</p>
  
  <p>this is what i have now for them   </p>
  
  <pre><code>Dim AppExcel 
  Set AppExcel = CreateObject("Excel.application")
  AppExcel.Workbooks.Open"directory\filename.xlsx"
  AppExcel.Visible = True
  AppExcel.ActiveWindow.SelectedSheets.PrintOut,,20
  Appexcel.Quit
  Set appExcel = Nothing
  
  filename = "\\MCSERVER01\Data\Forms\Vehicle inspection forms\daily vehicle inspection form.pdf"
  
  Set sh = CreateObject("WScript.Shell")
  sh.Run "sumatrapdf.exe -print-to-default """ &amp; filename &amp; """", 0, True
  
  Dim AppWord
  Set AppWord = CreateObject("Word.application")
  AppWord.Documents.Open"\\MCSERVER01\Data\Forms\DODD\SMALL CAR DRIVERS\Akira Litman.docx"
  AppWord.Visible = True
  AppWord.ActiveDocument.PrintOut
  AppWord.Quit
  Set appWord = Nothing
  </code></pre>