VB：如何将目录树读取到txtfile。

Question

我真的被困了所以希望有人可以帮忙。

如何创建一个从光盘（C：D :)读取目录树的vb程序，然后将其放到txt文件中。 ？

Answer 1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    writeDiskTextfile("d:\", "c:\textfile.txt")
End Sub

Sub writeDiskTextfile(path, TextfilePath)
    IO.File.AppendAllText(TextfilePath, "DIR: " & vbTab & path & vbCrLf)
    For Each f1 In IO.Directory.GetFiles(path)
        IO.File.AppendAllText(TextfilePath, "FILE: " & vbTab & f1 & vbCrLf)
    Next
    For Each d1 In IO.Directory.GetDirectories(path)
        writeDiskTextfile(d1, TextfilePath)
    Next
End Sub