VB.NET批量重命名指定目录文件失败，求统一添加扩展名的解决方法

首先，你的代码没生效大概率是权限问题加上吞掉了所有异常导致的，咱们一步步来排查和修复：

可能的原因分析 #

• 系统目录权限限制：Program Files(x86)是Windows受保护的系统目录，默认情况下普通用户没有修改/重命名其中文件的权限，你的代码会抛出权限异常，但被空的Catch块完全吞掉，你根本不知道出错了。
• 路径拼接不规范：直接用s & ".new"会导致文件名变成原文件名.原扩展名.new（比如notepad.exe.new），虽然这不是不生效的核心原因，但不是最优雅的写法。
• 无错误反馈：空的Catch块会隐藏所有错误信息，包括权限不足、文件被占用、路径过长等问题，让你无法定位问题。

修正后的代码 #

下面是修复后的代码，解决了权限问题、添加了错误反馈，同时规范了文件名处理：

Imports System.IO

Module FileRenamer
    Sub Main()
        Dim targetDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86)
        ' 或者用 Environ("PROGRAMFILES(x86)")，但上面的方法更符合.NET规范

        Try
            ' 获取目录下所有文件（包括子目录）
            For Each filePath As String In Directory.GetFiles(targetDir, "*", SearchOption.AllDirectories)
                Try
                    ' 获取不带扩展名的文件名，加上新扩展名
                    Dim newFileName As String = Path.GetFileNameWithoutExtension(filePath) & ".new"
                    Dim newFilePath As String = Path.Combine(Path.GetDirectoryName(filePath), newFileName)
                    
                    ' 执行重命名
                    My.Computer.FileSystem.RenameFile(filePath, newFileName)
                    Console.WriteLine($"已重命名：{filePath} -> {newFilePath}")
                Catch ex As Exception
                    Console.WriteLine($"重命名失败 {filePath}：{ex.Message}")
                End Try
            Next
        Catch ex As Exception
            Console.WriteLine($"获取文件列表失败：{ex.Message}")
        End Try

        Console.WriteLine("操作完成，按任意键退出...")
        Console.ReadKey()
    End Sub
End Module

关键修复点 #

• 添加错误日志：每个重命名操作的异常都会被捕获并输出具体原因，让你清楚知道哪些文件失败、为什么失败。
• 规范路径处理：使用Path类的方法处理文件名和路径，避免手动拼接导致的路径格式错误。
• 明确权限要求：运行程序时必须右键以管理员身份启动，否则会收到"权限不足"的错误提示，这是解决系统目录操作问题的核心前提。

额外注意事项 #

• 文件占用问题：如果某个文件正在被系统或其他程序占用，重命名会失败，代码会输出对应的错误信息。
• 路径长度限制：Windows传统路径长度限制为260字符，如果遇到超长路径，可能需要启用系统长路径支持或者缩小搜索范围。
• 测试建议：先在非系统目录（比如D盘的测试文件夹）测试代码，确认功能正常后再应用到Program Files(x86)目录。

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