Vb.net接收特定目录中的目录列表，并将其保存在file.txt中

我需要创建特定文件夹中现有目录名的列表

Dim WorksList As String=Application.StartupPath+“\db\works.txt”
SlcTextBox\u BaseWorksDirectory=“c:\ListDirectory”
如果存在My.Computer.FileSystem.directory（SlcTextBox\u BaseWorksDirectory.Text），则
将所有现有目录名SlcTextBox\u BaseWorksDirectory.text（c:\ListDirectory）保存在工作列表（works.txt）中
结束如果

要将特定目录的现有目录打印到文件中，只需使用

GetDirectories

检索文件并使用

AppendAllLines

打印即可。您可以用要列出的目录的路径替换

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)))

---

这假设工作列表指向有效的现有文本文件。

Hi@mike100111谢谢您的回答！代码的结果是C:\Users\Michel\Desktop\Testing\namedidirectory4，我希望它是namedidirectory4查看我的编辑。它使用linq删除最终目录名之前的所有内容。