打开对话框控件默认选择当前脚本所在文件夹的功能

Function BrowseForFolder(title)

On Error Resume Next

Dim objShell, objFolder, currentPath, objRoot

' 获取当前脚本所在文件夹路径

currentPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))

' 创建Shell对象

Set objShell = CreateObject("Shell.Application")

' 设置默认根目录为当前脚本所在文件夹

Set objRoot = objShell.NameSpace(currentPath)

' 显示文件夹选择对话框（添加文件夹选择标志）

Set objFolder = objShell.BrowseForFolder(0, title, &H4000, objRoot)

' 返回结果处理

If Not objFolder Is Nothing Then

BrowseForFolder = objFolder.Self.Path

Else

BrowseForFolder = ""

End If

' 释放对象

Set objFolder = Nothing

Set objRoot = Nothing

Set objShell = Nothing

End Function

主要优化点说明：

1. 默认路径设置：

- 使用 `WScript.ScriptFullName` 获取当前脚本完整路径

- 通过 `InStrRev` 和 `Left` 函数提取文件夹路径

- 通过 `objShell.NameSpace(currentPath)` 设置对话框的初始目录

2. 功能增强：

- 添加 `&H4000` 标志允许用户新建文件夹

- 使用 `On Error Resume Next` 防止运行时错误中断

3. 代码规范：

- 显式声明所有变量

- 添加对象释放代码

- 采用标准缩进格式

' 示例调用

selectedFolder = BrowseForFolder("请选择目标文件夹")

If selectedFolder <> "" Then

WScript.Echo "选择的文件夹：" & selectedFolder

Else

WScript.Echo "未选择任何文件夹"

End If

注意事项：

1. 当前路径获取仅在本地文件系统有效，无法用于网络路径

2. 如果脚本存储在非标准路径（如压缩包内），可能需要特殊处理

3. 对话框样式可通过修改第三个参数实现不同功能（如 `&H10` 显示文件夹大小）