Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/visual-studio-2010/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net VB:如何将目录树读取到txtfile。?_Vb.net_Visual Studio 2010 - Fatal编程技术网

Vb.net VB:如何将目录树读取到txtfile。?

Vb.net VB:如何将目录树读取到txtfile。?,vb.net,visual-studio-2010,Vb.net,Visual Studio 2010,我真的被卡住了,希望有人能帮忙 如何创建一个vb程序,从I.e光盘(C:D:)中读取目录树并将其输出到txt文件中 你试过什么吗?这不是新的要求。 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click writeDiskTextfile("d:\", "c:\textfile.txt") End Sub Sub writeDiskTextfile(path, TextfileP

我真的被卡住了,希望有人能帮忙


如何创建一个vb程序,从I.e光盘(C:D:)中读取目录树并将其输出到txt文件中

你试过什么吗?这不是新的要求。
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