<input type="file">のvalue (ID:82922)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private sub Command1_Click() Dim strFilePath as String With WebBrowser1.Document.frames(1).frames(3).Document.Forms(0) .elements(12).Click '「参照」をクリックし、ダイアログを開く strFilePath=.elements(12).value ’ダイアログのFileNameを代入 End With picImage.Picture=LoadPicture(strFilePath) End Sub で解決しました。ちなみに「参照」を押し一旦valueが確定してしまうと、変更がきかないので、そのページをもう一度読み込むといった手順です。XMLHTTPを使うより楽ですよね？色々ありがとうございました。