``` vbscript
昏暗的物體外殼
set objShell = CreateObject(“Shell。應用程序”)
獲取打開的資源管理器窗口列表。
昏暗的窗戶
設置windows = objShell。Windows操作系統
遍歷打開的窗口並獲取路徑。
對於windows中的每個窗口
確保該窗口是資源管理器窗口。
如果儀器(1,窗口。全名,“explorer.exe“,vbTextCompare)& gt;那就0
獲取窗口路徑。
MsgBox窗口。Document.Folder.Self.Path
如果…就會結束
然後
```
當窗口是資源管理器窗口時,上面的代碼將遍歷打開的窗口並顯示其路徑。您可以根據需要處理或存儲路徑。
請註意,這段代碼將遍歷系統中所有打開的窗口,包括資源管理器窗口、瀏覽器窗口等。如果您只需要獲取資源管理器窗口的路徑,請在遍歷窗口時添加適當的條件進行過濾。