连接OneDrive时，使用BrowseForFolder创建文件夹出现异常刷新问题

问题现象 #

• 执行以下VB代码打开OneDrive路径的文件夹选择窗口时，导航子文件夹会触发窗口持续刷新，重置鼠标与键盘焦点
• 在窗口内创建新文件夹并重命名时，约每12秒一次的固定刷新会强制中断重命名流程，已输入内容可能被覆盖，无法一次性完成命名
• 断开网络后问题仍存在，但关闭OneDrive应用后刷新现象完全消失

涉事代码 #

Dim testWindows As Object
Dim path As String: path = "absolute-path-to-OneDrive-location"
Set testWindows = CreateObject("Shell.Application").BrowseForFolder(0, "Title", path)

原因分析 #

OneDrive的实时同步监控机制会周期性扫描目录状态，而Shell.Application.BrowseForFolder创建的原生资源管理器窗口会响应OneDrive的状态更新信号，触发全窗口刷新进而重置焦点。即使断开网络，OneDrive本地仍会执行周期性缓存校验，因此问题不会消失；关闭OneDrive后监控进程停止，刷新也就终止了。

解决方案 #

方案1：临时暂停OneDrive同步（单次操作场景）

调用代码前先暂停OneDrive同步，操作完成后恢复，避免刷新干扰：

' 暂停OneDrive同步
Shell "%localappdata%\Microsoft\OneDrive\OneDrive.exe /pause", vbHide

' 原有文件夹选择逻辑
Dim testWindows As Object
Dim path As String: path = "absolute-path-to-OneDrive-location"
Set testWindows = CreateObject("Shell.Application").BrowseForFolder(0, "Title", path)

' 恢复OneDrive同步
Shell "%localappdata%\Microsoft\OneDrive\OneDrive.exe /resume", vbHide

方案2：改用FileDialog替代（更稳定）

使用Office的FileDialog控件替代原生文件夹选择窗口，该控件不受OneDrive监控机制影响：

Dim fd As Object
Set fd = CreateObject("Office.FileDialog")
With fd
    .Title = "Title"
    .InitialFileName = "absolute-path-to-OneDrive-location"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "文件夹", "*"
    .FilterIndex = 1
    If .Show = -1 Then
        ' 处理选中的路径
        Debug.Print .SelectedItems(1)
    End If
End With
Set fd = Nothing

方案3：调整OneDrive同步设置（全局生效）

如果目标目录不需要云同步，可将其设置为本地仅存，取消OneDrive的监控：

• 右键任务栏OneDrive图标 → 「设置」
• 切换到「账户」标签 → 「选择文件夹」
• 取消勾选目标文件夹的同步选项，点击「确定」

内容的提问来源于stack exchange，提问作者Dev1n.101