Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set objShellApp = CreateObject("Shell.Application")
- Dim winFolder
- For Each wFolder In objShellApp.Windows
- On Error Resume Next
- isFolder = wFolder.document.folder ' An IE window does not support ".document.folder". We get the first Windows Explorer window.
- If Err = 0 Then
- wFolder.Visible = True
- Set winFolder = wFolder
- Exit For
- End If
- Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement