如何使用VBScript关闭特定文件夹?
问题描述:
我试图让使用VBScript一个简单的程序,关闭每次被打开时,一个特定的文件夹,从而拒绝访问该文件夹。我已经成功地在这里为许多文件夹使用此代码,但由于某种原因,它不适用于C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp
。如何使用VBScript关闭特定文件夹?
Do
WindowTitle = "FOLDERNAME"
Set shell = CreateObject("WScript.Shell")
success = shell.AppActivate(WindowTitle)
If success Then shell.SendKeys "%{F4}"
Loop
有什么办法可以拒绝使用.vbs文件访问特定文件夹吗?
答
你可以尝试这样的:
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
'*********************************************************************************************
调整文件夹权限。 –
@AnsgarWiechers我想使用一个.vbs脚本,而不是触摸任何文件夹权限。有没有办法做到这一点? 在此先感谢 – nicochulo
*“我想用这一个.vbs脚本,而不是做” *不,你不会。相信我。 –