Answers for "download and open pdf vbscript"

0

download and open pdf vbscript

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")

pdfPath = WScript.Arguments.Item(1)

Set MyFolder = objFSO.GetFolder(pdfPath)
For Each MyFile in MyFolder.Files
      If Right(MyFile.Path,4) = ".pdf" Then
           objShell.Run MyFile.Path
      End If
Next
Posted by: Guest on May-03-2021

Browse Popular Code Answers by Language