Builder.Com.Com<\/a> 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. <\/p>\nThere were some issues, but I got it to work. It is a start at least. <\/p>\n
Public Function DirectoryStart(ByVal path As String) As String
\n
Dim sw As New StringWriter
\n
Dim xmlwriter As New XmlTextWriter(sw)
\n
xmlwriter.WriteStartDocument()
\n
DirectoryRecurse(path, xmlwriter)
\n
xmlwriter.WriteEndDocument()
\n
xmlwriter.Close()
\n
Return sw.ToString
\n
End Function<\/p>\n
Public Sub DirectoryRecurse(ByVal path As String, ByVal xmlw As XmlWriter)
\n
Dim filename As String ' , path As String
\n
Dim dir As New DirectoryInfo(path)
\n
Dim xtw As XmlTextWriter
\n
With xmlw
\n
.WriteComment(\" Content of the \" & Chr(34) & path & Chr(34) & \" folder \")
\n
.WriteStartElement(\"folders\")
\n
.WriteAttributeString(\"path\", path)
\n
.WriteAttributeString(\"count\", dir.GetDirectories().Length.ToString())
\n
For Each d As DirectoryInfo In dir.GetDirectories()
\n
.WriteStartElement(\"folder\")
\n
.WriteAttributeString(\"name\", d.Name)
\n
.WriteAttributeString(\"accessed\", d.LastAccessTime.ToString())
\n
.WriteString(\"Content of \" + d.Name)
\n
.WriteEndElement()
\n
DirectoryRecurse(d.FullName, xmlw)
\n
Next
\n
.WriteEndElement()
\n
End With
\n
End Sub
\n
<\/tt><\/p>\n","protected":false},"excerpt":{"rendered":"
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 …<\/p>\n
Programming Notes – Directory to XML recursive<\/span> Read More »<\/a><\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","enabled":false}}},"categories":[],"tags":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p5cfmK-Od","_links":{"self":[{"href":"http:\/\/www.radio-active.net.au\/web3\/wp-json\/wp\/v2\/posts\/3113"}],"collection":[{"href":"http:\/\/www.radio-active.net.au\/web3\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.radio-active.net.au\/web3\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.radio-active.net.au\/web3\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/www.radio-active.net.au\/web3\/wp-json\/wp\/v2\/comments?post=3113"}],"version-history":[{"count":0,"href":"http:\/\/www.radio-active.net.au\/web3\/wp-json\/wp\/v2\/posts\/3113\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.radio-active.net.au\/web3\/wp-json\/wp\/v2\/media?parent=3113"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.radio-active.net.au\/web3\/wp-json\/wp\/v2\/categories?post=3113"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.radio-active.net.au\/web3\/wp-json\/wp\/v2\/tags?post=3113"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}