使用文本框检测文件是否存在功能无法正常运行求助

看起来你遇到了两个核心问题：文件存在性判断的潜在漏洞，以及复选框状态变更时重复触发错误提示的问题。咱们一步步拆解解决：

1. 修复 doesFileExist 函数的可靠性问题 #

你的函数逻辑框架没问题，但有两个细节容易埋下隐患：

• 参数未指定类型，VB会默认按Object处理，可能引发隐式转换的意外问题
• 手动拼接路径时，如果用户输入的文件夹路径已经带了结尾的\，会生成\\的冗余分隔符（虽然File.Exists能兼容，但不够规范严谨）

推荐用Path.Combine来拼接路径，它会自动处理分隔符的各种情况，同时给参数指定明确的String类型，还可以增加空值判断避免异常：

Private Function doesFileExist(folderPath As String, fileName As String) As Boolean
    ' 先过滤空路径/空文件名的情况
    If String.IsNullOrWhiteSpace(folderPath) Or String.IsNullOrWhiteSpace(fileName) Then
        Return False
    End If
    Dim fullPath As String = IO.Path.Combine(folderPath, fileName)
    Return IO.File.Exists(fullPath)
End Function

2. 解决复选框重复触发错误提示的问题 #

你看到两次弹窗的根源是：程序启动时chkStart的CheckedChanged事件被触发，此时判断文件不存在，你设置chkStart.Checked = False——这个赋值操作会再次触发CheckedChanged事件，导致代码执行两次、弹窗两次。

解决办法是添加一个“正在处理”的标记，避免递归触发事件：

' 定义模块级变量，标记是否正在处理事件
Private isProcessing As Boolean = False

Private Sub chkStart_CheckedChanged(sender As Object, e As EventArgs) Handles chkStart.CheckedChanged
    ' 如果正在处理，直接退出，避免递归触发
    If isProcessing Then Return
    
    isProcessing = True
    Try
        Dim cpuFileExists As Boolean = doesFileExist(txtCPU.Text, txtFileCPU.Text)
        Dim gpuFileExists As Boolean = doesFileExist(txtGPU.Text, txtFileGPU.Text)
        
        If Not cpuFileExists Or Not gpuFileExists Then
            chkStart.Checked = False
            MessageBox.Show("Please check directory & file locations!", "Error!", MessageBoxButtons.OK)
        Else
            chkStart.Text = If(chkStart.Checked, "Stop Monitor", "Start Monitor")
        End If
    Finally
        ' 无论是否出错，都重置标记
        isProcessing = False
    End Try
End Sub

额外优化建议 #

• 窗体加载时，先初始化chkStart.Text = "Start Monitor"，避免启动时的状态混乱
• 给文本框添加输入验证（比如禁止空输入），提前拦截无效路径，提升用户体验

这样修改后，应该就能解决你的问题了——既保证了文件判断的准确性，又避免了重复触发事件导致的多次弹窗。

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