Check If Folder Is Open and or open it?

[mayoung]

Looking for code to see if a folder is open if it is maximize it? If its not Open open it?

 

[Yongle]

I am confused by your question
Do you mean test to see if a specific workbook is open?

amend full path

Sub ActivateWorkbook()
    Const f = "[COLOR=#ff0000]C:\folder\subfolder\filename.xlsx[/COLOR]"

    On Error Resume Next
    Workbooks(Split(f, "\")(UBound(Split(f, "\")))).Activate
    If Err.Number > 0 Then Workbooks.Open Filename:=f
End Sub

 

[mayoung]

No just open a certain path to a folder. I have code to open a folder but each time it runs it opens another window..So unless I close the first occurrence I may have multiple windows open with the same file path..Does thus make sense?

 

[Yongle]

Post the code you are using

 

[James006]

Hello,

You can the code written by Ryan Wells :

https://wellsr.com/vba/2016/excel/open-folder-using-vba-and-show-if-already-open/

Hope this will help

 

[mayoung]

James006,
Not sure how to interpret the code. Where do you insert the folder path or folder name?

 

[Yongle]

Where do you insert the folder path or folder name?

<code class="language-vb" data-lang="vb">Sub OpenFolderDemo()
'Demo - opens the folder location saved to the variable strPath
    Dim strPath As String
    strPath = "[COLOR=#ff0000]C:\Windows[/COLOR]"
    Call OpenFolder(strPath)
End Sub</code>

 

[James006]

James006,
Not sure how to interpret the code. Where do you insert the folder path or folder name?

You are welcome ...

 

[mayoung]

Ok this is the code I am trying per the article.
This line of code is thowing a error: If CBool(IsIconic(w.hwnd)) Then ' If it's minimized, show it

It's saying IsIconic (Sub of Function not defined?)

Any Ideas how to fix?

Thank You!

Sub OpenFolderDemo()'Demo - opens the folder location saved to the variable strPath
Dim strPath As String
strPath = "C:\Users\Mark\OneDrive\Documents\Excel\EverydayExcel"
Call OpenFolder(strPath)
End Sub


Private Sub OpenFolder(strDirectory As String)
'DESCRIPTION: Open folder if not already open. Otherwise, activate the already opened window
'DEVELOPER: Ryan Wells (wellsr.com)
'INPUT: Pass the procedure a string representing the directory you want to open
Dim pID As Variant
Dim sh As Variant
On Error GoTo 102:
Set sh = CreateObject("shell.application")
For Each w In sh.Windows
    If w.Name = "Windows Explorer" Or w.Name = "File Explorer" Then
        If w.document.folder.self.Path = strDirectory Then
            'if already open, bring it front
            If CBool(IsIconic(w.hwnd)) Then ' If it's minimized, show it
                w.Visible = False
                w.Visible = True
                ShowWindow w.hwnd, SW_RESTORE
            Else
                w.Visible = False
                w.Visible = True
            End If
            Exit Sub
        End If
    End If
Next
'if you get here, the folder isn't open so open it
pID = Shell("explorer.exe " & strDirectory, vbNormalFocus)
102:
End Sub

 

[Yongle]

Where is this in your code?

Private Const SW_RESTORE = 9

[URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=If"]#If[/URL]  VBA7 Then
    Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
    Private Declare PtrSafe Function IsIconic Lib "user32.dll" (ByVal hwnd As Long) As Long
[URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Else"]#Else[/URL] 
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
    Private Declare Function IsIconic Lib "user32.dll" (ByVal hwnd As Long) As Long
[URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=End"]#End[/URL]  If