How to close all sub folders of one folder? - windows

Question

For example I have this folder "C:\Series" and I have this script below which closes this folder when it is opened
#echo off
cd /d C:\ start C:\Windows\explorer.exe CD_Restored
rem Terminate process: taskkill /F /FI "WINDOWTITLE eq Music" /IM explorer.exe > nul
It works successfully, but when I open any folder inside it, this code surely doesn't work, and I need to close any opened folder inside it. I have over 15 subfolders inside it, so I can't make a script line for each of them, especially that I am always updating it.
So could any one tell me how to make a script which closes a folder and its subfolders?

Answer 1

Just give a try for this batch file that use a vbscript :
#echo off
Title Close Opened Folders
Set "MainFolderName=series"
Call :CloseAllOpenedFolders "%MainFolderName%"
Pause & Exit
::---------------------------------------------------------------------------------------
:CloseAllOpenedFolders <MainFolderName>
Set "VBSFILE=%Temp%\CloseAllOpenedFolders.vbs"
(
echo Dim MainFolder,shell,oWindows,W
echo MainFolder = "%~1"
echo Set shell = CreateObject("Shell.Application"^)
echo set oWindows = shell.windows
echo For Each W in oWindows
echo If InStr(LCase(W.document.folder.self.Path^),LCase(MainFolder^)^)^> 0 Then
echo wscript.echo W.document.folder.self.Path
echo W.Quit
echo End If
echo Next
)>"%VBSFILE%"
Cscript //NoLogo "%VBSFILE%"
Exit /B
::---------------------------------------------------------------------------------------
EDIT : Powershell Solution
$mainFolder= "c:\series"
$shell = New-Object -ComObject Shell.Application
$window = $shell.Windows() | ? { $_.LocationURL -like "$(([uri]$MainFolder).AbsoluteUri)*" }
$window.document.Folder.Self.Path
$window | % { $_.Quit() }