VBSからPDFファイルを開きたいが・・・

お世話になります

Inputboxで指定したファイル名の一部を、指定したフォルダの中から検索し、部分一致したPDFファイルをAdobeReaderで開くという操作を行いたいのです。

自分でスクリプトを記載したのですが、アドビが開かれた時に「この文書を開くときにエラーが発生しました。ファイル名、ディレクトリ名、またはボリュームラベルの構文が間違っています。」というエラーが発生してしまいます。

以下のどこを修正したら良いのでしょうか？教えていただければ幸いです。


C:\Test　フォルダにpdfファイルが入っているものとします

Set fso = CreateObject("Scripting.FilesystemObject")
Set sh = CreateObject("Wscript.Shell")
Set sha = CreateObject("Shell.Application")

FileName = Inputbox("ファイル名を入力してください")

Dim fi
Set fi = sha.NameSpace("C:\Test").Items()

For i = 0 to fi.Count-1
'ファイル名の一部にInputboxで入力した文字の一部が含まれていれば、そのPDFファイルを開く
IF (Instr(fi.Item(i),FileName)>=1) and (FileName<>"") then
sh.run "AcroRD32.exe ""C:\Test\"" & fi.Item(i)"
Exit For
End IF
Next

Set fso = Nothing
Set sh = Nothing
Set sha = Nothing

No.1 回答者： artoo 回答日時： 2015/12/02 23:51

sh.run "AcroRD32.exe ""C:\Test\"" & fi.Item(i)"

をどういうつもりで書いていますか？
sh.run "AcroRD32.exe ""C:\Test\""" & fi.Item(i)
では？

この回答へのお礼

ご回答ありがとうございます。
教えていただいた方法でも残念ながら開けませんでしたが、別の方法で開くことができました。

お礼日時：2015/12/03 18:31