Programming Notes – Directory to XML recursive

Posted on Posted in Uncategorized

Converting a Directory Structure to XML in VB.NET

There is an article on Builder.Com.Com showing how to convert a directory structure to XML. Unfortunately it is not a recursive function, but how hard can that be? OK, well I know how hard it can be, but it should not be too hard. We will see.

There were some issues, but I got it to work. It is a start at least.

Public Function DirectoryStart(ByVal path As String) As String

Dim sw As New StringWriter

Dim xmlwriter As New XmlTextWriter(sw)

xmlwriter.WriteStartDocument()

DirectoryRecurse(path, xmlwriter)

xmlwriter.WriteEndDocument()

xmlwriter.Close()

Return sw.ToString

End Function

Public Sub DirectoryRecurse(ByVal path As String, ByVal xmlw As XmlWriter)

Dim filename As String ' , path As String

Dim dir As New DirectoryInfo(path)

Dim xtw As XmlTextWriter

With xmlw

.WriteComment(" Content of the " & Chr(34) & path & Chr(34) & " folder ")

.WriteStartElement("folders")

.WriteAttributeString("path", path)

.WriteAttributeString("count", dir.GetDirectories().Length.ToString())

For Each d As DirectoryInfo In dir.GetDirectories()

.WriteStartElement("folder")

.WriteAttributeString("name", d.Name)

.WriteAttributeString("accessed", d.LastAccessTime.ToString())

.WriteString("Content of " + d.Name)

.WriteEndElement()

DirectoryRecurse(d.FullName, xmlw)

Next

.WriteEndElement()

End With

End Sub