'#Language "WWB-COM"

Option Explicit

Sub Main
	Dim i, j As Integer
	Dim cTopic, mTopic, sTopic As Topic ' central topic, main topic, subtopic
	Dim hTopic As Hyperlink
	Dim q As String
	q = Chr(34) 'double quotes
	Dim cText As String
	Dim cTextA() As String 'Array
	Dim cFolder As String
	Dim aux As String

	Debug.Clear

	With VisibleDocuments.Add
		.CentralTopic.Text = FullProductName
	End With



    Set cTopic = ActiveDocument.CentralTopic
	Set mTopic = cTopic.AddSubTopic("_meta")
	Set sTopic = mTopic.AddSubTopic("Version: " + Version)
	Set sTopic = mTopic.AddSubTopic("Language: " + MindManagerLanguage)

	Set mTopic = cTopic.AddSubTopic("Documentation")
	Set sTopic = mTopic.AddSubTopic("Online User Manual")
	Set hTopic = sTopic.Hyperlinks.AddHyperlink("https://onlinehelp.mindjet.com/22/index.html?app=MindManager&lang=en#/l1TOC0")
	Set sTopic = mTopic.AddSubTopic("Online API Documentation")
	Set hTopic = sTopic.Hyperlinks.AddHyperlink("https://www.mindmanager.com/en/pages/developers/api/22/")

	Set mTopic = cTopic.AddSubTopic("Folders")

	With mTopic
		For i = MM_DIRECTORY_TYPE_LOWER_ENUM To MM_DIRECTORY_TYPE_UPPER_ENUM
			cText = ""
			On Error Resume Next
			cText = GetPath(i)
			If Len(cText)>0 Then
				cTextA = Split(cText, "\")
				cFolder = cTextA(UBound(cTextA)-1)
				If i = mmDirectoryMyMaps Then
					cFolder = """My Maps"""
					'In users ""Documents"" directory"
				End If
				Set sTopic = mTopic.AddSubTopic(Str(i)+": " + cFolder)
				Set hTopic = sTopic.Hyperlinks.AddHyperlink(GetPath(i))
				Debug.Print(Str(i) + ": " + GetPath(i))
			End If
		Next
	End With

End Sub