VBA to check if folder is open

I am using the pushbuttion() event in excel 2000 to follow hyperlink and open a folder. Well of course if the folder is already open the VBA throws an error. Is there a way for me to check if the folder is already open, and if the folder is already open, then DO Nothing?

Originally Posted by Leith Ross

Hello jo15765,

Try this revision to your code...

    Dim OpenFold As Variant
    Dim oShell As Object
    Dim Wnd As Object
     
        OpenFold = UserForm1.txtBox1.Text
        strFolder = "L:\" & OpenFold
  
        Set oShell = CreateObject("Shell.Application")
        
        For Each Wnd In oShell.Windows
            If Wnd.Document.Folder.Self.Path = OpenFold Then
                Exit Sub    ' Folder is open - exit this Sub
            Else
                FollowHyperlink Address:=strFolder, NewWindow:=True
            End If
        Next Wnd

Hi I am not sure if you can help but I have used the code above , but instead of having a message box pop up saying the folder is open I would like to bring the open folder to the front

Dim OpenFold As Variant
Dim retval
    Dim oShell As Object
    Dim Wnd As Object
    Set oShell = CreateObject("Shell.Application")
        OpenFold = "F:\media\television\"
        strFolder = "F:\media\television\"
        Set oShell = CreateObject("Shell.Application")
        For Each Wnd In oShell.Windows
            If Wnd.Document.Folder.Self.Path = OpenFold Then
                MsgBox "Folder is open"
                Exit Sub    ' Folder is open - exit this Sub
            Else
            End If
        Next Wnd
                 retval = Shell("C:\WINDOWS\explorer.exe """ & OpenFold, 1)

That got it! Thank you!