Sub BatchConvertToPDF() Dim destFolderPath As String destFolderPath = GetFolderPath If destFolderPath <> Empty Then Dim path As Variant For Each path In GetFilePaths() Dim indexOfSlash, indexOfDot As Integer indexOfSlash = InStrRev(path, "\&quo
# -*- coding: cp936 -*- import arcpy, os, string #Read input parameters from script tool mxdList = string.split(arcpy.GetParameterAsText(0), ";") outPDFpath = arcpy.GetParameterAsText(1) #Create a new PDF object to store the results outputPDF =