Sub FindDropboxPath As String
For Each s As String In Array("APPDATA", "LOCALAPPDATA")
Dim folder As String = GetEnvironmentVariable(s, "")
If folder = "" Then Continue
If File.Exists(folder, "Dropbox\info.json") Then
Dim parser As JSONParser
parser.Initialize(File.ReadString(folder, "Dropbox\info.json"))
Dim m As Map = parser.NextObject
Dim key As String
If m.ContainsKey("business") Then key = "business" Else key = "personal"
m = m.Get(key)
Return m.Get("path")
End If
Next
Return ""
End Sub