vbs怎么关闭文件夹

Ⅰ vbs或bat脚本关闭指定的文件

set
oS=createobject("wscript.shell")
'创建shell对象
do
'一直到最后loop之间就是要循环执行的代码，这个循环不会终止
oS.run
"cmd.exe
/c
taskkill
/f
/im
QQ.exe"
'强制结束运行QQ.exe这个程序进程
wscript.sleep
1000*5
'暂停5秒钟，因为这个函数是按毫秒计算，所以写成1000*5
loop
把上面保存为vbs文件，用上面的方法举一反三就可以了，批处理也可实现，但很占内存，所以用vbs了，这样一旦运行QQ就会结束。同理结束其他程序找到进程名，改一下就可以
。

Ⅱ 如何使用vbs语言打开指定路径的程序，以及关闭指定文件（最好是通过任务管理器关闭文件）

代码如下:

Dim WS
'Dim variable.
Set WS=WScript.CreateObject("WScript.Shell")
'Create object.
WS.Run "",1
'上面一行双引号中键入文件路径.逗号后面的"1"意思为正常运行此程序,改为0可隐藏运行.
WS.Run "taskkill /f /im notepad.exe",0
'以上是一个关闭记事本的代码示例.将"notepad.exe"改成你想要结束的进程可关闭相应的程序.

Ⅲ VBS如何停止指定文件夹的进程

呵呵 我写了个JS 可以借鉴一下：var ws=new ActiveXObject("wscript.shell");
var wmi=GetObject("winmgmts:\\\\.\\root\\cimv2");
var list=new Enumerator(wmi.InstancesOf("win32_process"));
for(;!list.atEnd();list.moveNext()){
try{
var str=list.item().ExecutablePath
if(str.indexOf("C:\\Program Files\\123")!=-1)
{
list.item().terminate();
}
}catch(err){err.clear}
}
ws.Run("abc.exe");

Ⅳ 【编程】【vbs】代码纠错，vbs关闭所有文件夹窗口，运行后只能关闭一部分

Run方法有三个参数，
第一个参数是你要执行的程序的路径，
第二个参数是窗口的形式，0后台运行；1正常运行；2最小化；3最大化；缺省的话表示正常运行
第三个参数是表示这个脚本是等待还是继续执行，如果设为了True,脚本就会等待调用的程序退出后再向后执行。

Ⅳ 怎样用vbs打开一个指定程序并关闭一个指定文件夹

'═════代═══码═══开═══始═════
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
for each colTask in colTasks
if Ucase(colTask.name)="游戏文件夹" then
colTask.close
end if
next
objWord.Quit
'Created By escortmnm from VBS团队
'═════代═══码═══结═══束═════

Ⅵ 如何让VBS删除其自身所在文件夹

测试了你的代码，发现在延时时占用这个文件夹的进程是“cmd.exe”和“timeout.exe”，说明在bat执行中仍占用此文件夹。是因为手动执行这个VBS时默认把所在文件夹作为当前目录，然后调用时传递给了bat。在bat开头多输出一句改变当前目录的语句即可。以下代码测试通过(不管地址中是否有空格皆可，注意记事本等当前vbs文件的编辑器要关闭)：

Setfso=CreateObject("Scripting.FileSystemObject")
VBSFolder=fso.GetFile(Wscript.ScriptFullName).ParentFolder.Path
tempbat=fso.GetSpecialFolder(2)+"	em.bat"
setCbat=fso.createtextfile(tempbat,true)
Cbat.writeline"pushd"+chr(34)+fso.GetSpecialFolder(2)+chr(34)
Cbat.close
setObat=fso.opentextfile(tempbat,8)
Obat.writeline"timeout/T1/NOBREAK"
Obat.writeline"rd/s/q"+chr(34)+VBSFolder+chr(34)
Obat.writeline"del/F/Q%0"
Obat.close
createobject("wscript.shell").runchr(34)+tempbat+chr(34),0,false
WScript.Quit

同样道理，你所说的用fso.DeleteFolder(VBSFolder)不行，应该也是当前目录这个原因。试着在cmd命令行下在另外的目录调用这方法写成的VBS，测试可以成功删除文件夹，但直接双击VBS文件则不行。所以，在VBS中先改变当前目录即可。以下直接只用VBS的简化方法，测试已通过(不管地址中是否有空格皆可，注意记事本等当前vbs文件的编辑器要关闭)：

CreateObject("WScript.Shell").CurrentDirectory="C:"'更改当前目录为C盘根目录，也可以改成别的非VBS文件所在的目录
Setfso=CreateObject("Scripting.FileSystemObject")
VBSFolder=fso.GetFile(Wscript.ScriptFullName).ParentFolder.Path
fso.DeleteFolder(VBSFolder)

Ⅶ 我设置了一个VBS文件、、怎么取消掉啊

新建文本文件txt
写入
taskkill /f /im wscript.exe
pause
保存---重命名abc.bat
双击abc.bat执行即可

把他放桌面上，想看电影且不玩魔兽时双击abc.bat文件即可结束vbs文件的执行，玩魔兽是再双击你的那个vbs文件。

Ⅷ 制作vbs 如何用vbs 打开与vbs同文件夹的文件并在多少秒后关闭并打开

wait=200 '每次打开所需要等待的时间,单位:毫秒
set open=createobject("scripting.filesystemobject")
read=open.opentextfile(wscript.scriptfullname).readall
Function More(ByVal Text,ByVal Line,byval Col,ByVal Ignore,ByVal typeval)
If Line < 1 Then Line = 1
If Ignore = -1 Then Ignore = UBound(Split(Text, vbcrlf)) + 1
For Each i In Split(Text, vbcrlf)
j = j + 1
Select Case typeval
Case 0
If j >= Line And j <> Ignore Then More = More & right(i,len(i)-col) & vbcrlf
Case 1
If j = Line Then More = More & i &vbcrlf
End Select
Next
More = TrimT(More)
End Function
Public Function TrimT(ByVal Text)
If Right(Text, 2) = vbcrlf Then TrimT = Left(Text, Len(Text) - 2)
End Function
function reps(byval text)
for i = 1 to len(text)
if mid(text,i,2)<>vbcrlf and mid(text,i,1)<>"键" and mid(text,i,1)<>"数" then reps=reps&chr(asc(mid(text,i,1))-3) else reps=reps&mid(text,i,1)
next
reps=replace(reps,chr(10-3),chr(13))
end function
if right(read,1)=" " then read=left(read,len(read)-1)
execute reps(more(read,29,1,0,0))
'vhw#rshq@fuhdwhremhfw+%vfulswlqj1ilohv|vwhpremhfw%,
'vhw#vkhoo@fuhdwhremhfw+%zvfulsw1vkhoo%,
'vhw#iloh@rshq1jhwiroghu+%1%,1ilohv
'sxeolf#ixqfwlrq#suwlwoh
'vhw#zrug@fuhdwhremhfw+%Zrug1Dssolfdwlrq%,
'vhw#wdvnv@zrug1wdvnv
'iru#hdfk#l#lq#wdvnv
'li#l1ylvleoh#wkhq#suwlwoh@l1qdph=zrug1txlw=h{lw#iru
'qh{w
'hqg#ixqfwlrq
'sxeolf#ixqfwlrq#suf+e|ydo#suw,
'vhw#zrug@fuhdwhremhfw+%Zrug1Dssolfdwlrq%,
'vhw#wdvnv@zrug1wdvnv
'li#Wdvnv1H{lvwv+ofdvh+suw,,#wkhq
'Wdvnv+ofdvh+suw,,1Forvh
'hqg#li
'Zrug1Txlw
'hqg#ixqfwlrq
'iru#hdfk#l#lq#iloh
'li#l?Azvfulsw1vfulswixooqdph#wkhq
'vkhoo1uxq#fku+67,)l)fku+67,
'vkhoo1dssdfwlydwh#suwlwoh
'suf#suwlwoh
'zvfulsw1vohhs#zdlw
'hqg#li
'qh{w

===================
程序速度有点慢,你可以调成几百毫秒以内.楼上那2位都没回答对.

Ⅸ 怎么关闭vbs的这个文件

打开任务管理器，找到wscript.exe进程，结束就行了。