VB.NET中无需检查文件存在实现文件重命名切换（按钮控件）

你需要用普通按钮实现和批处理一致的文件重命名切换逻辑，不用调用批处理，且已知文件只会是myfile.dll或myfile.bak其中一种状态，无需担心丢失风险。

原批处理逻辑 #

批处理通过“尝试第一个重命名操作，失败则执行第二个”的逻辑，用2> nul忽略错误输出：

set ADDON_PATH="P:\MyPath\MySubFolder\"
set ADDON_NAME="myfile.dll"
set DISABLE_NAME="myfile.bak"
cd /d %ADDON_PATH%
Ren %ADDON_NAME% %DISABLE_NAME% 2> nul || ren %DISABLE_NAME% %ADDON_NAME% 2> nul

原VB代码的问题 #

你当前的代码依赖按钮文本判断文件状态，如果手动修改过文件名，按钮文本和实际文件状态不一致时，会执行错误的重命名操作，且My.Computer.FileSystem.RenameFile会因目标文件不存在抛出异常。

纯VB.NET解决方案（模仿批处理逻辑） #

直接复刻批处理的“试错式”逻辑，用Try...Catch捕获预期的文件不存在异常，无需提前检查文件状态：

Imports System.IO ' 需要引入IO命名空间，或者直接用完整路径

Private Sub PlayVanilla(sender As Object, e As EventArgs) Handles Button11.Click
    Dim folderPath As String = "P:\MyPath\MySubFolder\"
    Dim dllPath As String = Path.Combine(folderPath, "myfile.dll")
    Dim bakPath As String = Path.Combine(folderPath, "myfile.bak")
    
    Try
        ' 尝试将dll改为bak（当前是dll状态时成功）
        My.Computer.FileSystem.RenameFile(dllPath, "myfile.bak")
        Button11.Text = "Modded Game"
        Button11.ForeColor = Color.Green
    Catch ex As FileNotFoundException
        ' 捕获异常说明当前是bak状态，执行反向重命名
        Try
            My.Computer.FileSystem.RenameFile(bakPath, "myfile.dll")
            Button11.Text = "Vanilla Mode"
            Button11.ForeColor = Color.Red
        Catch
            ' 已知文件必然存在，此处为兜底逻辑，可留空或添加日志
        End Try
    End Try
End Sub

逻辑说明 #

1. 用Path.Combine拼接路径更规范，避免手动拼接导致的路径格式错误
2. 第一次尝试重命名dll到bak，若当前文件是bak则触发FileNotFoundException，此时执行反向重命名
3. 由于你明确文件只会是两种状态之一，第二次重命名必然成功，内层Catch仅作为兜底
4. 该逻辑与批处理完全一致，无需提前检查文件存在，也不依赖按钮文本状态，即使手动修改过文件名，点击按钮仍能正确切换

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