VB.NET 方法（推荐）
使用 .NET Framework 的 Process.Start() 方法是最安全高效的方式。
方法1：直接打开目标文件夹
Imports System.Diagnostics
' 示例：打开D盘的Test文件夹
Process.Start("explorer.exe", "D:\Test")
方法2：打开特殊文件夹（如桌面、文档）
Process.Start("explorer.exe", Environment.GetFolderPath(Environment.SpecialFolder.Desktop))
方法3：通过文件资源管理器选择文件（高亮显示）
Process.Start("explorer.exe", "/select, ""C:\Test\file.txt""")
VB6 方法
通过 Shell 函数调用Windows资源管理器（explorer.exe）。
基础代码
' 打开D:\Test文件夹 Shell "explorer.exe """ & "D:\Test" & """", vbNormalFocus
处理带空格的路径
Dim folderPath As String folderPath = "C:\Program Files\My Folder" Shell "explorer.exe """ & folderPath & """", vbNormalFocus
通用注意事项
-
路径合法性检查
执行前验证路径是否存在：' VB.NET If System.IO.Directory.Exists("D:\Test") Then Process.Start("explorer.exe", "D:\Test") End If ' VB6 If Dir("D:\Test", vbDirectory) <> "" Then Shell "explorer.exe ""D:\Test""", vbNormalFocus End If -
权限问题
- 确保程序有权限访问目标文件夹。
- 系统文件夹（如
C:\Windows）可能需要管理员权限。
-
错误处理
添加异常捕获防止崩溃：' VB.NET Try Process.Start("explorer.exe", "D:\Test") Catch ex As Exception MessageBox.Show("错误: " & ex.Message) End Try ' VB6 On Error Resume Next Shell "explorer.exe ""D:\Test""", vbNormalFocus If Err.Number <> 0 Then MsgBox "错误: " & Err.Description End If
替代方案（高级需求）
-
使用Windows API（VB6）
调用ShellExecuteAPI 实现更精细控制：Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long ' 打开文件夹 ShellExecute 0, "open", "D:\Test", "", "", 1 -
通过命令行调用（兼容性最佳）
' 适用于所有VB版本 Shell "cmd /c start """" ""D:\Test""", vbHide
- 推荐方法：
VB.NET →Process.Start("explorer.exe", "路径")
VB6 →Shell "explorer.exe ""路径""", vbNormalFocus - 关键点：
- 用双引号包裹路径（避免空格错误）
- 添加路径存在性检查
- 包含错误处理代码
- 适用场景：
日志查看、文件管理、用户目录导航等
引用说明：本文方法参考微软官方文档 Process.Start 及 Shell函数，经实际开发环境验证。
原创文章，发布者：酷番叔，转转请注明出处：https://cloud.kd.cn/ask/9073.html
