Sub Process_Globals
Dim root As String = "C:\Users\H\Downloads\projects\schemaorg_apache_xmlbeans"
End Sub
Sub AppStart (Args() As String)
Dim sb As StringBuilder
sb.Initialize
Search(root, sb)
File.WriteString(File.DirApp, "1.txt", sb.ToString)
End Sub
Sub Search (folder As String, sb As StringBuilder)
Dim FoundFolder As Boolean
For Each f As String In File.ListFiles(folder)
If File.IsDirectory(folder, f) Then
FoundFolder = True
Search(File.Combine(folder, f), sb)
Else
End If
Next
If FoundFolder = False Then
sb.Append("opens ").Append("schemaorg_apache_xmlbeans").Append(folder.SubString(root.Length).Replace("\", ".")).Append("; ")
End If
End Sub