Vba 获取当前windows资源管理器路径

Vba 获取当前windows资源管理器路径,vba,forms,ms-access,Vba,Forms,Ms Access,我正在使用shell打开windows资源管理器。 假设我转到桌面并退出windows资源管理器。 我想将我的路径存储到一个字段中,以便以后使用,这样当我重新打开浏览器时,它会将我带回到我所在的路径 以下是我目前掌握的情况: Dim Foldername As String If ISNULL(Me.myfield.value) Then Foldername = "" Else Foldername = ? End If Shell "C:\WINDOWS\explorer.e

我正在使用shell打开windows资源管理器。 假设我转到桌面并退出windows资源管理器。 我想将我的路径存储到一个字段中,以便以后使用,这样当我重新打开浏览器时,它会将我带回到我所在的路径

以下是我目前掌握的情况:

Dim Foldername As String
If ISNULL(Me.myfield.value) Then
    Foldername = ""
Else
    Foldername = ?
End If
Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus

您可以使用这些东西(未完全测试),这将获取windows资源管理器路径。或者看看使用office对话框,如果你只是得到一个文件路径,也许

'   Using Microsoft Internet Controls Reference

Sub c()

Dim w As SHDocVw.ShellWindows

Set w = New SHDocVw.ShellWindows

For i = 0 To w.Count - 1
    If w(i).Name = "Windows Explorer" Then
        currentdb.Execute "delete * from [mystorage]"
        currentdb.Execute "insert into [mystorage] (lastpath) values('" & w(i).LocationURL & "')"
        '      me.txtPrevExplorer.value=w(i).LocationURL 
    End If
Next i

End Sub

老实说,我没有比这更进一步的东西了,而且我在网上也找不到任何关于它的东西,所以我很笨。谢谢你的快速回答。我对vba很陌生,那么如何使用代码中的SQL将URL位置存储到像Me.myfield这样的字段中呢。你在4分钟内处理好了吗?????你没有让我生气,很明显你没有付出任何努力。:)祝您愉快。@Nathan_Sav有没有办法将LocationURL设置为其他路径?抱歉,在意识到我可以使用与IE相同的命令后,我找到了它。我使用了:w(I)。导航“C:/Users/[username]/Desktop/”