Set obj = CreateObject("basp21") adoRs("photo") = obj.BinaryRead(objFile.Path) としていたところを Const adTypeBinary = 1 Set obj = CreateObject("ADODB.Stream") obj.Open obj.Type = adTypeBinary obj.LoadFromFile(obj.Path) adoRs("photo") = obj.Read() と書き換えても動いた。 かなりうれしい。
![VBScript でバイナリファイルの読み込み: ある nakagami の日記](https://cdn-ak-scissors.b.st-hatena.com/image/square/91294c5e7d5927632be882106d59f6c861902287/height=288;version=1;width=512/https%3A%2F%2Fblog.ss-blog.jp%2F_common%2Fimg%2Fsonet_logo_l.png)