求助：VB脚本定位Downloads文件夹后无法运行exe文件

你的代码里导致exe无法运行的核心问题有几个，对应解决方式如下：

1. 未指定exe的完整路径 #

Shell("test.exe")只写了文件名，系统只会在当前程序的工作目录和系统PATH环境变量包含的路径里查找这个exe，如果你的test.exe不在这些位置，就会找不到文件，自然无法运行。

2. 循环导致重复执行（非必要但不符合预期） #

遍历每个用户的Downloads文件夹时，只要检测到文件夹存在就运行一次exe，会导致exe被启动多次，这大概率不是你想要的效果。

3. 未做错误捕获，无法排查问题 #

原代码没有任何错误处理，即使exe找不到或者没有权限运行，你也看不到任何提示，难以定位问题。

修改后的代码示例 #

用VB.NET原生的API替代COM对象，同时修复路径和执行逻辑：

Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
    ' 遍历用户Downloads文件夹，执行清理逻辑（保留你原有的清理代码）
    For Each userFolder In Directory.GetDirectories("C:\Users")
        Dim downloadsPath = Path.Combine(userFolder, "Downloads")
        If Directory.Exists(downloadsPath) Then
            ' 这里写入你的临时文件夹清理代码
            ' 例如：删除downloads下的临时文件等
        End If
    Next

    ' 运行exe的核心逻辑
    ' 替换成你实际的exe完整路径，比如：
    Dim exeFullPath = Path.Combine(Application.StartupPath, "install.exe")
    
    ' 先检查文件是否存在
    If File.Exists(exeFullPath) Then
        Try
            ' 使用Process.Start更可控，支持异常捕获
            Process.Start(exeFullPath)
        Catch ex As Exception
            MsgBox("运行程序失败：" & ex.Message)
        End Try
    Else
        MsgBox("未找到目标程序：" & exeFullPath)
    End If
End Sub

额外说明 #

• 如果你的exe是放在每个用户的Downloads文件夹里，那需要把exe路径和downloadsPath结合，比如Dim exePath = Path.Combine(downloadsPath, "install.exe")，并在循环内判断运行（但要注意重复执行的问题）。
• 确保程序有足够的权限：访问C:\Users下的文件夹可能需要管理员权限，运行某些exe也可能需要权限，必要时可以右键程序选择“以管理员身份运行”测试。

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