VB 获取子文件夹名称并将其保存到文本文件

Question

我想获取我的文本文件中列出的子文件夹名称。我不想看到子文件夹的路径。我终于找到了一种只显示给我的 VS 控制台的方法。但是，如果我尝试将它保存到我的 txt 文件中，即使我使用了 For，它也会继续只写第一行。请帮我！这是写入控制台的代码

Dim di As New IO.DirectoryInfo(startPath)
        Dim Drs() As IO.DirectoryInfo = di.GetDirectories()
        For Each dr As IO.DirectoryInfo In Drs
            Console.WriteLine(dr.Name)
        Next

这是我尝试将其写入 txt 文件的代码。它只写 1 行

For Each Dir As String In Directory.GetDirectories(startPath)
            My.Computer.FileSystem.WriteAllText("C:\Test.txt", Dir, False)
        Next

预期输出是

SubFolder1
SubFolder2
SubFolder3
SubFolder4
SubFolder5

在 txt 文件中像这样

Answer 1

你用错了方法，WriteAllText总是覆盖整个文件，你要追加一个新行。你可以使用 File.AppendAllText:

For Each Dir As String In Directory.GetDirectories(startPath)
    System.IO.File.AppendAllText("C:\Test.txt", Dir)
Next

另一个选项，使用 StreamWriter，它有一个 constructor that takes a Boolean 来附加文本：

Using writer As New System.IO.StreamWriter(startPath, True)
    For Each Dir As String In Directory.GetDirectories(startPath)
        writer.WriteLine(Dir)
    Next
End Using

VB 获取子文件夹名称并将其保存到文本文件

VB Getting The SubFolder name and saving it to a Text file

vb.net

subdirectory