オブジェクトでサポートされていないプロパティまたはメソッドです。の原因と解決方法 【VBScriptエラー】

スポンサーリンク

オブジェクト名の記述誤り

【状況】
Dictionaryオブジェクトの使用でエラーが発生

【原因】
keysメソッドおよびItemsメソッドの使用で、下記の設定後に再度objDC.を付けて記述していた
例）Set objDC = CreateObject("Scripting.Dictionary")
myItem = objDC.Items
objLOG.WriteLine("ItemS:"& objDC.myItem(i))

【解決方法】
次のように正しく記述し直す
objLOG.WriteLine("ItemS:"& myItem(i))

スポンサーリンク

オブジェクト自体にItemsメソッドを使ってしまった

【原因】
SchDicObjectは内部で、ディクショナリーを使っているが、作られたobjDC自体はディクショナリーでないため、そのオブジェクトにItemsを使ってもディクショナリーのメソッドは使えない

Dim objDC
Set objDC = New SchDicObject
myItem = objDC.Items

【解決方法】
SchDicObject内で、Items用の関数を新しく書く

Property Get GetITEMS
GetITEMS = objDC.Items
End Property

【状況】
Function関数内でテキストファイルの新規作成を行い、戻り値としてそのオブジェクトを設定したところ、エラーが発生。ただし、テキストファイルは正しく作成されている。

【原因】
関数内でオブジェクトをSetで変数にセットしたが、返す値と関数の外の戻り値でもSetでオブジェクトを設定していなかった
※なおCreateFolderでは、返す値と戻り値でSetを使わなくてもエラーは発生していない

【解決方法】
関数で返す値と関数の外の戻り値で、Setでオブジェクトを設定する
＜関数の外の戻り値＞
Set objFL = exsFile(objFS,flPath)

Function exsFile(objFS,fl)
Set objFL = objFS.CreateTextFile(fl)
・・
Set exsFile = objFL
End Function

スポンサーリンク

関連記事

オブジェクトがありません。の原因と解決方法　【VBScriptエラー】

オブジェクトでサポートされていないプロパティまたはメソッドです。の原因と解決方法　【VBScriptエラー】

オーバーフローしました。の原因と解決方法　【VBScriptエラー】