如何使用VBScript關閉特定文件夾？

Question

我試圖讓使用VBScript一個簡單的程序，關閉每次被打開時，一個特定的文件夾，從而拒絕訪問該文件夾。我已經成功地在這裏爲許多文件夾使用此代碼，但由於某種原因，它不適用於C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp。

Do 
    WindowTitle = "FOLDERNAME" 
    Set shell = CreateObject("WScript.Shell") 
    success = shell.AppActivate(WindowTitle) 
    If success Then shell.SendKeys "%{F4}" 
Loop 

有什麼辦法可以拒絕使用.vbs文件訪問特定文件夾嗎？

Answer 1

你可以嘗試這樣的：

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 

這裏是一個完整的例子關閉您的臨時文件夾：如果你想拒絕訪問的文件夾做直路

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 
'*********************************************************************************************