关于完整路径〔在线等待〕

Question

当打开一个文件夹后，获得这个文件夹的句柄，如何根据这个句柄取得这个文件夹的完整路径？

Answer 1

'引用Microsoft Internet Controls
Private Sub Command1_Click()
Dim IEwns As ShellWindows
Dim temp As InternetExplorer
Set IEwns = New ShellWindows
For Each temp In IEwns
  If temp.hwnd=xxxx then
     msgbox temp.LocationURL
    Exit For
  End If
Next
End Sub