参考にさせていただきました。 officetanaka.net Sub xpdf_pdfinfo_getInformation() Dim WSH, wExec, sCmd As String, Result As String Set WSH = CreateObject("WScript.Shell") ''(1) sCmd = "dir C:\" sCmd = "C:\Users\xxxx\Desktop\test\pdfinfo.exe …