Breaking News: Grepper is joining You.com. Read the official announcement!

How to close a specific folder with VBScript?

Hackoo Crackoo answered on August 17, 2022 Popularity 1/10 Helpfulness 1/10

answer How to close a specific folder with VBScript?

related How to close a specific folder with VBScript and instances?

How to close a specific folder with VBScript?

Comment

myfolder = "C:\temp"
Set sh = CreateObject("shell.application")
For Each w In sh.Windows
    If w.document.folder.self.Path = myfolder Then w.Quit
Next

Popularity 1/10 Helpfulness 1/10 Language whatever

Source: stackoverflow.com

Tags: whatever

Link to this answer
Share Copy Link

Contributed on Aug 17 2022

Hackoo Crackoo

0 Answers Avg Quality 2/10

Closely Related Answers

How to close a specific folder with VBScript and instances?

Comment

Option Explicit
If AppPrevInstance() Then 
    MsgBox "There is an existing proceeding !" & VbCrLF &_
    CommandLineLike(WScript.ScriptName),VbExclamation,"There is an existing proceeding !"    
    WScript.Quit   
Else
Dim MyFolder,ws
Set ws = CreateObject("wscript.shell")
Myfolder = ws.ExpandEnvironmentStrings("%temp%")
Do
    Call CloseThis(MyFolder)
    wscript.sleep 1000
Loop
End If
'*********************************************************************************************
Sub CloseThis(Folder)
Dim sh,w
Set sh = CreateObject("shell.application")
For Each w In sh.Windows
    If w.document.folder.self.Path = Folder Then w.Quit
Next
End Sub
'*********************************************************************************************
Function AppPrevInstance()   
    With GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")   
        With .ExecQuery("SELECT * FROM Win32_Process WHERE CommandLine LIKE " & CommandLineLike(WScript.ScriptFullName) & _
            " AND CommandLine LIKE '%WScript%' OR CommandLine LIKE '%cscript%'")   
            AppPrevInstance = (.Count > 1)   
        End With   
    End With   
End Function    
'*********************************************************************************************
Function CommandLineLike(ProcessPath)   
    ProcessPath = Replace(ProcessPath, "\", "\\")   
    CommandLineLike = "'%" & ProcessPath & "%'"   
End Function
'*********************************************************************************************

Popularity 1/10 Helpfulness 1/10 Language whatever

Source: stackoverflow.com

Tags: vbscript whatever

Link to this answer
Share Copy Link

Contributed on Aug 17 2022

Hackoo Crackoo

0 Answers Avg Quality 2/10

How to close a specific folder with VBScript?

Contents

More Related Answers

How to close a specific folder with VBScript?

Closely Related Answers

How to close a specific folder with VBScript and instances?

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.