ドラック&ドロップでpdfを分割するvbs
cubepdfを用いて、pdfを分割するvbsをチャットgptに教えてもらったのですが、アプリでpdfが開かれただけ、でした。どこがおかしいかわかる方いますか?
' CubePDFを使ってPDFを分割するVBScript
Dim objShell
Set objShell = CreateObject("WScript.Shell")
' CubePDFのパス
cubePDFPath = "C:\Program Files\CubePDF\CubePDF.exe"
' ドロップされたファイルのパスを取得
If WScript.Arguments.Count = 0 Then
WScript.Quit
End If
inputPDF = WScript.Arguments(0)
outputPrefix = Left(inputPDF, InStrRev(inputPDF, ".") - 1)
' CubePDFを使ってPDFを分割
objShell.Run """" & cubePDFPath & """ --split """ & inputPDF & """ """ & outputPrefix & "_output""", 0, True
Set objShell = Nothing
補足
実は!!な話、ありがとうございます!!!! ほんとは、パソコンに詳しくないんです、、私 なのでそんな提案は大それた事でして、、、、 でもvbsやらバッチファイルを最近知り、便利ツールをたくさん作ってます!でも全部ネットで拾ってきてます!!! インストールとかファイルが必要とか、、私にできるか、不安になりました 教えてもらったのにすみません