【VBScript】連想配列 – Dictionary 全ての要素の削除

VBScript

2021.12.31 2021.12.29

VBScriptにおける、Dictionaryの全ての要素を削除する方法について解説しています。

下記のように「Dictionaryオブジェクト.RemoveAll」と記述することで、全ての要素を削除することが可能です。

全要素の削除後にキーの存在チェックをしているため、実行結果は常に「キーは存在しません」と表示されます。

Option Explicit

' 連想配列を使用するための宣言
Dim dic
Set dic = CreateObject("Scripting.Dictionary")

' 要素の追加
dic.Add "りんご", "100円"
dic.Add "みかん", "80円"
dic.Add "メロン", "300円"

' 全ての要素を削除
dic.RemoveAll

' キーの存在チェック
If(dic.Exists("りんご"))Then
	MsgBox("キーは存在します")
Else
	MsgBox("キーは存在しません")
End If