Vb.net接收特定目錄中的目錄列表，並將其保存在file.txt的

Question

我需要在一個特定的文件夾

Dim WorksList As String = Application.StartupPath + "\db\works.txt" 
 
SlcTextBox_BaseWorksDirectory = "c:\ListDirectory" 
 

 
If My.Computer.FileSystem.DirectoryExists(SlcTextBox_BaseWorksDirectory.Text) Then 
 
Saves all existing directory names SlcTextBox_BaseWorksDirectory.text (c:\ListDirectory) in a WorksList (works.txt) 
 
End If

創建現有目錄的名稱列表

文件works.txt
ADirectory1
BDirectory2
CDirec tory3
DDirectory4
EDirectory5
FDirectory6
GDirectory7

Answer 1

要打印的特定目錄的現有目錄的文件，只需檢索使用AppendAllLines使用GetDirectories和打印文件。您可以將My.Computer.FileSystem.SpecialDirectories.MyDocuments替換爲要列出的目錄的路徑。

Dim directories = My.Computer.FileSystem.GetDirectories(My.Computer.FileSystem.SpecialDirectories.MyDocuments) 

    IO.File.AppendAllLines(WorksList, directories.Select(Function(f) f.Substring(f.LastIndexOf("\") + 1))) 

這假定WorksList指向一個有效的現有文本文件。