VB.NET多选择Listbox批量重命名文件夹问题求助

核心问题在于你混淆了ListBox显示的文件夹名称和实际文件夹的完整路径，以下是修正后的完整实现代码及关键说明：

1. 窗体类全局定义 #

先声明存储名称与路径映射的字典，以及目标父文件夹路径：

' 存储显示名称与完整路径的映射，避免混淆名称和路径
Private folderPathMap As New Dictionary(Of String, String)
' 替换为你的目标父文件夹路径
Private targetFolder As String = "D:\Your\Target\Folder"

2. 窗体加载时填充ListBox #

加载时同时记录每个文件夹的显示名称和完整路径：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    folderPathMap.Clear()
    ListBox1.Items.Clear()

    ' 获取目标文件夹下所有子文件夹的完整路径
    Dim subFolders() As String = Directory.GetDirectories(targetFolder)

    For Each folderPath In subFolders
        Dim folderName As String = Path.GetFileName(folderPath)
        ' 关联名称和路径并添加到控件
        folderPathMap.Add(folderName, folderPath)
        ListBox1.Items.Add(folderName)
    Next
End Sub

3. 提交按钮重命名逻辑 #

遍历所有文件夹，根据选中状态执行对应重命名操作：

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    ' 遍历字典副本，避免遍历中字典结构变化引发异常
    For Each entry In folderPathMap.ToList()
        Dim currentName As String = entry.Key
        Dim currentPath As String = entry.Value
        ' 判断当前文件夹是否在ListBox中被选中
        Dim isSelected As Boolean = ListBox1.Items.Contains(currentName) AndAlso 
                                    ListBox1.GetSelected(ListBox1.Items.IndexOf(currentName))

        Dim newName As String = ""
        Dim newPath As String = ""

        If isSelected Then
            ' 选中状态：移除前缀X（仅当名称以X开头时）
            If currentName.StartsWith("X", StringComparison.OrdinalIgnoreCase) Then
                newName = currentName.Substring(1)
                newPath = Path.Combine(targetFolder, newName)
                ' 检查目标路径是否存在，避免重名冲突
                If Not Directory.Exists(newPath) Then
                    Directory.Move(currentPath, newPath)
                    ' 更新映射字典和ListBox显示
                    folderPathMap.Remove(currentName)
                    folderPathMap.Add(newName, newPath)
                    ListBox1.Items(ListBox1.Items.IndexOf(currentName)) = newName
                Else
                    MessageBox.Show($"无法重命名：{newName} 已存在")
                End If
            End If
        Else
            ' 未选中状态：添加前缀X（仅当名称不以X开头时）
            If Not currentName.StartsWith("X", StringComparison.OrdinalIgnoreCase) Then
                newName = "X" & currentName
                newPath = Path.Combine(targetFolder, newName)
                If Not Directory.Exists(newPath) Then
                    Directory.Move(currentPath, newPath)
                    folderPathMap.Remove(currentName)
                    folderPathMap.Add(newName, newPath)
                    ListBox1.Items(ListBox1.Items.IndexOf(currentName)) = newName
                Else
                    MessageBox.Show($"无法重命名：{newName} 已存在")
                End If
            End If
        End If
    Next
End Sub

关键注意点 #

• 路径与名称分离：通过folderPathMap字典严格区分显示名称和完整路径，所有文件操作都基于完整路径执行，彻底解决混淆问题。
• 避免遍历异常：使用folderPathMap.ToList()创建字典副本后再遍历，防止重命名过程中字典条目变化引发的遍历错误。
• 重名检查：添加Directory.Exists(newPath)判断，避免因目标文件夹已存在导致的重命名失败。
• 界面同步：重命名完成后立即更新ListBox显示内容，保证界面与实际文件夹状态一致。

内容的提问来源于stack exchange，提问作者Spanish Learner 2 Learner