Check If Anything Added to Dictionary

[30percent]

Hi,

I declared a variable as dictionary. Wonder if there is a way to check if anything been added to the dictionary.

I have the following code but it says that the dictionary is NOT EMPTY.

Sub store_Dict()



Dim Dict_curUpdate As New Dictionary


If Not Dict_curUpdate Is Nothing Then
    Debug.Print "Dictionary contains something"
End If


End Sub

Thank you!

 

[footoo]

It doesn't say it's not empty. It says it exists.

Try : dict_curUpdate.Count

 

[RoryA]

Note also that because you used Dim...As New... the variable will never be Nothing. It’s generally considered bad practice to do that rather than using separate Dim and Set statements.

 

[Fluff]

How about

Sub store_Dict()
   Dim Dict_curUpdate As Object
   
   Set Dict_curUpdate = CreateObject("scripting.dictionary")
   
   If Dict_curUpdate.Count <> 0 Then
       Debug.Print "Dictionary contains something"
   End If
End Sub