Solved Closing specific folders using VBA

[jazsriel]

Hi, been awhile since I was on here. Right now there I am on the last part of my current project and I have no idea how to solve my problem. I have a specific Windows folder that I need to close when a button is clicked on a form. I have 0 code on how to accomplish this.

Basically, a blank form with a single button on it. Click the button and a specific folder that was previously opened will close.

Any ideas to point me in the right direction. I am completely lost on this.

 

[Jason Lee Hayes]

Check if Folder is Opened and Close it-VBForums

Hello all, I am trying to rename folders, but if the folders are opened (windows explorer), the rename fails, that why I would like to know if there is a way to check if a folder is opened already, and if yes, to close it, Rename it (i know how), then re-open it after renaming it Anyone...

www.vbforums.com

 

[jazsriel]

Thank you but this it appears the link you provided is referring to using shell commands. To my knowledge, which is limited these commands won't work in VBA, but I might be wrong. Please let me know if I am wrong.

But thank you for the reply either way.

 

[jdraw]

See this M$oft link on FileSystemObject
some sample usages here

 

[Jason Lee Hayes]

Thank you but this it appears the link you provided is referring to using shell commands. To my knowledge, which is limited these commands won't work in VBA, but I might be wrong. Please let me know if I am wrong.

But thank you for the reply either way.

You will need to use API I guess, don't think FSO can do this as your opening a folder in Windows Explorer therefore you will need to identify the correct open window and reference it before you can close it. I can only do it with API and utilising the shell command sorry. Likely someone on here can achieve it via vba only but that's not me lol

 

[Jason Lee Hayes]

Thank you but this it appears the link you provided is referring to using shell commands. To my knowledge, which is limited these commands won't work in VBA, but I might be wrong. Please let me know if I am wrong.

But thank you for the reply either way.

Shell function (Visual Basic for Applications) | Microsoft Learn

 

[jazsriel]

Check if Folder is Opened and Close it-VBForums

Hello all, I am trying to rename folders, but if the folders are opened (windows explorer), the rename fails, that why I would like to know if there is a way to check if a folder is opened already, and if yes, to close it, Rename it (i know how), then re-open it after renaming it Anyone...

www.vbforums.com

I have tried to go back again today and reference the information you provided in the attached link, however my company has restricted access to the vbforums site. I do not have microsoft products at home, so I am unable to really do much from there. So right now, I am at a complete stand still. I even tried to use a batch program which was able to successfully close the folder, but only if the folders and the batch command were under my personal user account login. Once they were moved to the public directory, and the batch file adjusted accordingly they stopped working.

 

[olxx]

I assume that the explorer window you want to close is identified by folder path. In this case this code closes the explorer window you want. Edit thetargetFolderPath part in quotes.

Sub CloseExplorerWindowByPath()
    Dim shellWindows As Object
    Dim explorerWindow As Object
    Dim targetFolderPath As String

    ' Set the target folder path
    targetFolderPath = "C:\yourpath"

    ' Create ShellWindows object
    Set shellWindows = CreateObject("Shell.Application").Windows

    ' Loop through each Explorer window
    For Each explorerWindow In shellWindows
        ' Check if the window's document folder path matches the target path
        If InStr(1, explorerWindow.Document.Folder.Self.Path, targetFolderPath, vbTextCompare) > 0 Then
            ' Close the matching window
            explorerWindow.Quit
            Exit For
        End If
    Next explorerWindow
End Sub

 

[jazsriel]

I assume that the explorer window you want to close is identified by folder path. In this case this code closes the explorer window you want. Edit thetargetFolderPath part in quotes.

Sub CloseExplorerWindowByPath()
    Dim shellWindows As Object
    Dim explorerWindow As Object
    Dim targetFolderPath As String

    ' Set the target folder path
    targetFolderPath = "C:\yourpath"

    ' Create ShellWindows object
    Set shellWindows = CreateObject("Shell.Application").Windows

    ' Loop through each Explorer window
    For Each explorerWindow In shellWindows
        ' Check if the window's document folder path matches the target path
        If InStr(1, explorerWindow.Document.Folder.Self.Path, targetFolderPath, vbTextCompare) > 0 Then
            ' Close the matching window
            explorerWindow.Quit
            Exit For
        End If
    Next explorerWindow
End Sub

Yes, you are correct that the folder I needed to close is identified by path. This also solves the issue I was having. Thank you. I will mark as solved.