There are over 6,300 messages in my JSON file. My JSON is formatted like so...
{ "messages":[
{
"id": ...
}
...
]}
Dim jObj As JObject = JObject.Parse(File.ReadAllText(outputJSONpath & "myFileName.json"))
Dim jArr As New JArray(jObj("messages"))
For Each message As JObject In jArr.Children(Of JObject)()
'Do work
Next
jArr.Children(Of JObject)().Count
As messages
is a JArray you just need to cast it:
Dim jArr As JArray = CType(jObj("messages"), JArray)