VBA FileDialog选择文件后锁定文件与目录，如何不关闭Access解锁？

当使用Application.FileDialog(msoFileDialogFilePicker)选择文件后，所选文件的所在目录会被Access进程锁定，无法移动、删除或重命名，直到Access退出。这是因为FileDialog会将该目录设为进程的当前工作目录，系统会锁定当前目录。以下是无需退出Access即可释放锁定的方法：

方法1：使用VBA切换回初始目录 #

核心思路是先记录Access的初始工作目录，在FileDialog操作完成后切换回去，解除对目标目录的锁定。

示例代码：

Dim fd As FileDialog
Dim originalDir As String

' 记录初始工作目录
originalDir = CurDir()

' 初始化并使用文件选择对话框
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .AllowMultiSelect = False
    .Title = "选择文件"
    If .Show = -1 Then
        ' 处理选中的文件，示例：打印文件路径
        Debug.Print .SelectedItems(1)
    End If
End With

' 切换回初始目录，释放锁定
ChDir originalDir
Set fd = Nothing

方法2：调用Windows API切换目录（更稳定） #

部分场景下ChDir可能存在兼容性问题，可直接调用Windows内核API来切换当前目录，确保锁定被释放。

示例代码：

' 声明API（兼容32/64位Access）
Private Declare PtrSafe Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Boolean

Sub PickFileAndReleaseLock()
    Dim fd As FileDialog
    Dim originalDir As String
    
    originalDir = CurDir()
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = False
        .Title = "选择文件"
        If .Show = -1 Then
            Debug.Print .SelectedItems(1)
        End If
    End With
    
    ' 调用API切换回初始目录
    SetCurrentDirectory originalDir
    Set fd = Nothing
End Sub

验证锁定是否释放 #

操作完成后，打开Win10资源监视器→CPU→关联句柄，搜索目标目录名称，若Access的PID不再持有该目录的句柄，说明锁定已成功释放，此时即可正常移动、删除或重命名目录。

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