VB程序启动时获取指定文件夹一级子文件夹并添加到菜单的方法

你的需求是获取初始文件夹下的一级子文件夹（不含子子文件夹），将名称添加到菜单并保存路径。原代码存在几个关键问题：

• 错误使用GetFiles查找文件，而非获取文件夹
• 循环变量类型错误（System.IO.Path是静态工具类，不能作为遍历变量类型）
• 路径截取方式不够可靠

以下是修正后的实现代码：

' 获取初始文件夹路径（从程序启动路径回退到bin目录的上一级）
Dim rootPath As String = Directory.GetParent(Application.StartupPath).Parent.FullName

' 清空ListBox（如果是菜单则清空对应菜单项）
ListBox1.Items.Clear()

' 存储文件夹名称与路径的字典，方便后续快速查找
Dim folderDict As New Dictionary(Of String, String)

' 获取rootPath下的所有一级子文件夹
For Each subFolderPath As String In Directory.GetDirectories(rootPath, "*", SearchOption.TopLevelOnly)
    ' 提取文件夹名称（不含完整路径）
    Dim folderName As String = Path.GetFileName(subFolderPath)
    
    ' 添加到ListBox（如果是MenuStrip，可改为MenuStrip1.Items.Add(folderName)）
    ListBox1.Items.Add(folderName)
    
    ' 将名称和路径存入字典，后续访问时用folderName取路径
    folderDict.Add(folderName, subFolderPath)
Next

关键说明： #

• 路径获取：用Directory.GetParent逐级回退，比InStr截取更稳定，避免因路径格式变化出错
• 获取子文件夹：Directory.GetDirectories专门用于获取目录，SearchOption.TopLevelOnly确保只取一级子目录
• 路径存储：用Dictionary绑定文件夹名称和完整路径，后续需要访问子文件夹内文件时，直接通过名称取出路径即可（比如Dim targetPath As String = folderDict("sub 1 folder")）
• 菜单适配：如果要添加到菜单（如MenuStrip），只需把ListBox1.Items.Add(folderName)替换为MenuStrip1.Items.Add(New ToolStripMenuItem(folderName))，同时可以给菜单项绑定点击事件，通过字典获取路径

内容的提问来源于stack exchange，提问作者user21083278