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("請重啟機器!")