Directory - Path

Imports System.IO
Imports System.Xml
Imports System.Text.RegularExpressions


' If no argument has been provided, use default path for snippets.

If args.Length = 0 Then
args = New String() {"C:\Program Files\Microsoft Visual Studio 8\Vb\Snippets\1033\SnippetIndex.xml"}
' Uncomment next line to list C# snippets

' args = New String() {"C:\Program Files\Microsoft Visual Studio 8\VC#\Snippets\1033\SnippetsIndex.xml"}

End If
Dim snippetsFile As String = args(0)
snippetsPath = Path.GetDirectoryName(snippetsFile)

' Load the snippet index file.

Dim xmlIndex As New XmlDocument()
xmlIndex.Load(snippetsFile)
' We need two passes, because dirs and subdirs use a different XML element.

ParseSnippetIndex(xmlIndex, "//SnippetDir")
ParseSnippetIndex(xmlIndex, "//SnippetSubDir")

' Iterate over all the directories in the main snippet directory.

For Each dir As String In Directory.GetDirectories(snippetsPath)
ParseSnippetFolder(dir, "")
Next