vbs如何删除文件

㈠ .vbs文件如何删掉

如果再你的电脑上（已经中毒了）

1在任务栏单击右键，任务管理器，进程，找到WSCRIPT.EXE结束进程

2然后打开我的电脑，不要直接双击打开U盘,如图所示打开，然后新建一个TXT文本，在里面写入如下命令

attrib-s-h-a-r/s/d

然后保存，改为1.bat文件，运行1.bat然后删除病毒文件

如果不在你的电脑（还没有中毒）。请从第2步开始

㈡ 如何使用vbs脚本命令删除指定文件夹下的文件

不必要vbs，用
批处理
就行在文本下写
@echo
off
echo
正在
清除文件
，
请稍等
......
cd\
C:\WINDOWS\Web\Wallpaper
attrib
a.bmp
-a
-h
-s
del
/s
/q
/f
a.bmp
attrib
b.bmp
-a
-h
-s
del
/s
/q
/f
b.bmp
attrib
c.bmp
-a
-h
-s
del
/s
/q
/f
c.bmp
echo
文件清除完成！
echo.
&
pause
将此文件保存成.bat后缀的文件就可以删除了

㈢ 怎么用vbs删除vbs所在的文件夹

首先，创建文件系统对象，即filesystemobject,然后使用此对象的方法来创建

实例

对于本题：
set fso=createobject("scripting.filesystemobject")
'创建文件系统对象fso
set f=fso.createfolder("c:\test")
'用文件系统对象fso的方法createfolder，创建文件夹c:\test
'并将返回的文件夹对象c:\test，赋给f,从而得到文件夹对象的一个实例
'后面可以对此对象进行引用，如想得到其大小，可用f.size
MsgBox "去看看吧，文件夹10秒后会被删除"
createobject("wscript.shell").run "c:\"
wsh.sleep 10000
fso.deletefolder("c:\test")
'对于文件、文件夹的删除操作，由于被删除了，也就无法再建立连接了
'且它也没有返回值，无法将它赋给变量

看看能不能看懂

㈣ 如何使用vbs脚本命令删除文件

先用Regread获取路径
如：Path1=RegRead
“注册表位置。。”
然后
Set
Fso=CreateObject("Scripting.FileSysytem")
Set
fl=Fso.getfile(path1)
fl.del
wscript.quit

㈤ VBS删除文件

current=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))'获取脚本的当前目录
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
If (fso.FileExists(current&"1.exe")) Then
Set delf= fso.GetFile(current&"1.exe")
delf.Delete
End 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)
next
for each fpath in filepath.subfolders '这里是目录下的子文件夹，循环调用
call pd(fpath)
next
end sub

sub scwj(filename) '删除文件
if fso.getextensionname(filename)="bak" then '如果是bak文件
fso.deletefile filename
end if
end 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.ini
Set 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=0
t1 = 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 If
Loopt2 = 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
Next
End 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
Next
End SubFunction CheckLine(strLine) \'//自己定义的函数用于检查配置文件中 = 号两边是否都有内容
Dim LineRegExp,Matches \'//定义变量
Set LineRegExp = New RegExp \'//创建正则表达式
LineRegExp.Pattern = ".=." \'//(不知道该怎么解释好，对于正则表达式不是很理解)类是我们查找*.*文件一样，这里查找*=*
LineRegExp.Global = True \'//以下就是判断=号两边是否都有内容
Set Matches = LineRegExp.Execute(strLine)
CheckLine = Matches.count \'//如果都有将返回 2
End FunctionFunction InArray(Myarray,StrIn) \'//这个函数是用于检测需要排除的目录的
Dim StrTemp
InArray = True
For Each StrTemp In Myarray
If StrIn = StrTemp Then
Exit Function
Exit For
End If
Next
InArray = False
End Function

㈨ vbs如何删除指定文件

第一次修改：
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("确定要清除？")
On Error Resume Next
Set oFSO=CreateObject("Scripting.FileSystemObject")
Set f1=ofso.GetFile("c:\windows\system32\test.inf")
oFSO.DeleteFile f1
Set oFSO=Nothing
WSH.POPUP("请重启机器!")

第二次修改
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("确定要清除？")
On Error Resume Next
Set oFSO=CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile("c:\windows\system32\test.inf")
Set oFSO=Nothing
WSH.POPUP("请重启机器!")