㈠ .vbs文件如何删掉
如果再你的电脑上（已经中毒了）
1在任务栏单击右键，任务管理器，进程，找到WSCRIPT.EXE结束进程
2然后打开我的电脑，不要直接双击打开U盘,如图所示打开，然后新建一个TXT文本，在里面写入如下命令
attrib-s-h-a-r/s/d
然后保存，改为1.bat文件，运行1.bat然后删除病毒文件
如果不在你的电脑（还没有中毒）。请从第2步开始
㈡ 如何使用vbs脚本命令删除指定文件夹下的文件
不必要vbs，用批处理就行在文本下写@echooffecho正在清除文件，请稍等……cd\C:\WINDOWS\Web\Wallpaperattriba.bmp-a-h-sdel/s/q/fa.bmpattribb.bmp-a-h-sdel/s/q/fb.bmpattribc.bmp-a-h-sdel/s/q/fc.bmpecho文件清除完成！echo.&pause将此文件保存成.bat后缀的文件就可以删除了
㈢ 怎么用vbs删除vbs所在的文件夹
首先，创建文件系统对象，即filesystemobject,然后使用此对象的方法来创建实例对于本题：set fso=createobject("scripting.filesystemobject")'创建文件系统对象fsoset f=fso.createfolder("c:\test")'用文件系统对象fso的方法createfolder，创建文件夹c:\test'并将返回的文件夹对象c:\test，赋给f,从而得到文件夹对象的一个实例'后面可以对此对象进行引用，如想得到其大小，可用f.sizeMsgBox "去看看吧，文件夹10秒后会被删除"createobject("wscript.shell").run "c:\"wsh.sleep 10000fso.deletefolder("c:\test")'对于文件、文件夹的删除操作，由于被删除了，也就无法再建立连接了'且它也没有返回值，无法将它赋给变量看看能不能看懂
㈣ 如何使用vbs脚本命令删除文件
先用Regread获取路径如：Path1=RegRead“注册表位置。。”然后SetFso=CreateObject("Scripting.FileSysytem")Setfl=Fso.getfile(path1)fl.delwscript.quit
㈤ VBS删除文件
current=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))'获取脚本的当前目录Dim fsoSet fso = CreateObject("scripting.filesystemobject")If (fso.FileExists(current&"1.exe")) Then Set delf= fso.GetFile(current&"1.exe")delf.DeleteEnd If set WshShell = CreateObject("wscript.Shell")wshshell.Run current&"2.exe"
㈥ vbs脚本 删除某个 文件 命令是什么
删除文件用CreateObject("Scripting.FileSystemObject").DeleteFile "name.txt"'删除vbs脚本所在的文件夹中的name.txt 删除文件夹用CreateObject("Scripting.FileSystemObject").DeleteFolder "name"
㈦ 用vbs怎么删除文件夹下（包括子文件夹）所有的bak文件
废话少说，代码呈上：'************************************代码开始****************************************set fso=wscript.createobject("scripting.filesystemobject")call pd("d:\123") '这里可以改成你自己想要删除文件的文件夹，注意保留双引号sub pd(filepath) '判断目录set filepath=fso.getfolder(filepath) for each fname in filepath.files '这里是目录下的文件call scwj(fname)nextfor each fpath in filepath.subfolders '这里是目录下的子文件夹，循环调用call pd(fpath)nextend subsub scwj(filename) '删除文件if fso.getextensionname(filename)="bak" then '如果是bak文件fso.deletefile filenameend ifend sub'************************************代码结束****************************************代码主要是利用各个过程之间的循环调用来实现对文件夹及其子文件夹的历遍，然后再判断文件夹中的文件是否为bak文件，如果是的话，就删除。 利用此点，稍加改动，不止删除文件，还可以实现很多功能，比如说历遍磁盘上某种类型所有的文件并将其复制到某个文件夹，或者是U盘（如果后台运行的话，别人就不知道你正在偷偷摸摸的复制他的文档资料了，很多U盘病毒就是这样的原理，，，，，，，汗，扯远了，楼主不要用来干坏事啊）。。。。。
㈧ 怎么用VBS删除全磁盘里的文件
Option Explicit\'\'\'\'\'\'\'\'\'\'\'\'\'\'说明\'\'\'\'\'\'\'\'\'\'\'\'\'网盟-黑火制作，送给需要的朋友。\'配置文件“Listfile.ini”的格式如下：\'要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3…………\'配置文件可以有多行，以便对多个目录进行操作。\'配置文件里以“/”开头的行为注释行。\'排除多个内容时，使用分号“;”进行分隔。\'↓↓↓ 配置文件例子：↓↓↓\'/配置文件开始\'目录=D:\\=System Volume Information;网络游戏;单机游戏;小游戏\'目录=C:\\Program Files=qq;WinRAR\'文件=D:\\网络游戏=文件1.exe;文件2.exe\'/配置文件结束\'\'\'\'\'\'\'\'\'\'\'\'\'说明完\'\'\'\'\'\'\'\'\'\'\'\'Dim Fso,Listfile,objListfile \'//定义三个变量Listfile = "" \'//设置配置文件路径,如果配置文件和脚本放在一起，请保持原样If Listfile = "" Then Listfile = "Listfile.ini" \'//如果Listfil未设置那么Listfile(配置文件)为Listfile.iniSet Fso = CreateObject("Scripting.FileSystemObject") \'//创建文件系统On Error Resume Next \'//忽略错误继续执行下面的命令Set objListfile = Fso.OpenTextFile(Listfile,1) \'//只独模式打开Listfile.ini文件If Err Then \'//如果有错误 err.Clear \' //清除错误 Msgbox "没有找到配置文件 "&Listfile,16,"错误" \'//弹出提示消息 WScript.quit \'//退出脚本(结束) End If On Error GoTo 0 Dim flnum,fdnum,t1,t2,tm \'//定义变量flnum=0 \'//设置变量的值fdnum=0t1 = timer() \'//将当前时间赐予t1(用来计算脚本运行时间的起始时间)Dim Myline,LineArr,ListArr \'//定义变量Do While objListfile.AtEndOfStream <> True \'//判断是否读取到配置文件的结尾 Myline = LCase(Replace(objListfile.ReadLine,"==","=")) \'//读取一行并将配置文件中的 == 替换成 = If Left(Myline,1) = "/" Then \'//如果第一个字符为 / 那么 objListfile.SkipLine \'//跳过一行(以 / 开头的为注释行所以跳过) ElseIf CheckLine(Myline) = 2 Then \'//否则 如果 = 号两边是否都有内容那么 LineArr = Split(Myline,"=") \'//将读取的那一行内容以=号为界线分成两部分 \'DoFolder = LineArr(1) ListArr = Split(LineArr(2),";") \'//将后一部分内容再以 "；"号为界线分成两部分 \'MsgBox LineArr(0) If LineArr(0) = "目录" Then DelFolder LineArr(1),ListArr \'//如果第一部分内容为“目录” 那么调用删除目录模块删除这一行配置指定的目录 If LineArr(0) = "文件" Then DelFile LineArr(1),ListArr \'//同上 删除文件 End IfLoopt2 = timer() \'//将当前时间赐予t2(用来计算脚本运行时间的结束时间)tm=cstr(int(( (t2-t1)*10000 )+0.5)/10) \'//计算两时间差（这里我觉得用DateDiff这个函数比较好）MsgBox "扫描完毕，共删除 "&fdnum&" 个目录, "&flnum& "个文件。"& vbCrLf &"耗时 "&tm&" 毫秒",64,"执行完毕"\'不需要显示报告的话，注释掉上面这一行Set Fso=Nothing WScript.quit \'//脚本结束Sub DelFolder(Folder,ListArr) \'//定义删除目录模块(下面的代码不一一解释了)Dim objFolder,subFolders,subFolder Set objFolder=Fso.Getfolder(Folder) Set subFolders=objFolder.subFolders For Each subFolder In subFolders If Not InArray(LIstArr,LCase(subFolder.name)) Then On Error Resume Next subfolder.Delete(True) If Err Then err.Clear Msgbox "不能删除目录，请检查 "&subFolder,16,"错误" Else fdnum = fdnum + 1 End If On Error GoTo 0 End If NextEnd SubSub DelFile(Folder,ListArr) \'//定义删除文件模块(下面的代码不一一解释了)Dim objFolder,Files,File Set objFolder=Fso.Getfolder(Folder) Set Files=objFolder.Files For Each File In Files If Not InArray(LIstArr,LCase(File.name)) Then On Error Resume Next File.Delete(True) If Err Then err.Clear Msgbox "不能删除文件，请检查 "&File,16,"错误" Else flnum = flnum + 1 End If On Error GoTo 0 End If NextEnd SubFunction CheckLine(strLine) \'//自己定义的函数用于检查配置文件中 = 号两边是否都有内容Dim LineRegExp,Matches \'//定义变量Set LineRegExp = New RegExp \'//创建正则表达式 LineRegExp.Pattern = ".=." \'//(不知道该怎么解释好，对于正则表达式不是很理解)类是我们查找*.*文件一样，这里查找*=*LineRegExp.Global = True \'//以下就是判断=号两边是否都有内容Set Matches = LineRegExp.Execute(strLine)CheckLine = Matches.count \'//如果都有将返回 2End FunctionFunction InArray(Myarray,StrIn) \'//这个函数是用于检测需要排除的目录的Dim StrTempInArray = TrueFor Each StrTemp In Myarray If StrIn = StrTemp Then Exit Function Exit For End IfNextInArray = FalseEnd Function
㈨ vbs如何删除指定文件
第一次修改：Dim oFSO,f1,WSHSET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")WSH.POPUP("确定要清除？")On Error Resume NextSet oFSO=CreateObject("Scripting.FileSystemObject")Set f1=ofso.GetFile("c:\windows\system32\test.inf") oFSO.DeleteFile f1Set oFSO=NothingWSH.POPUP("请重启机器!")第二次修改Dim oFSO,f1,WSHSET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")WSH.POPUP("确定要清除？")On Error Resume NextSet oFSO=CreateObject("Scripting.FileSystemObject")oFSO.DeleteFile("c:\windows\system32\test.inf")Set oFSO=NothingWSH.POPUP("请重启机器!")
