VB Получение имени субфолдера и сохранение его в текстовом файле

Question

Я хочу получить имя подпапки, указанное в моем текстовом файле. Я не хочу видеть путь для SubFolder. У меня наконец появился способ показать только мою консоль 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 

Это код, который я попытался записать его на текстовый файл. Он пишет только 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 

Как это в текстовом файле

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