用VBS删除指定文件夹下的所有文件怎么写?

我是菜鸟

第1个回答  2008-10-16
on error resume next
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder("E:\vb\")'e:\vb可以改为你要删除文件的目录
set files=folder.files
for each file in files
fso.deletefile file
next本回答被提问者采纳
第2个回答  2008-10-14
@echo off
echo 正在清除系统垃圾文件,请稍等......
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.gid
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 清除系统LJ完成! 、echo. & pause你可得给我加分啊

用VBS删除指定文件夹下的所有文件(包括文件夹)?
'删除“D:\\yy”目录下的所有文件及文件夹 Const DeleteReadOnly = True Set objFSO = CreateObject("Scripting.FileSystemObject")objFSO.DeleteFile("d:\\yy\\*.*"), DeleteReadOnly strComputer = "."Set objWMIService = GetObject("winmgmts:\\\\" & strComputer & "\\root\\cimv2")Set colSubfold...

用VBS删除指定文件夹下的所有文件怎么写?
fso.deletefile file next

用VBS删除指定文件夹下的所有文件和文件夹怎么写?
set fso=createobject("scripting.filesystemobject")fso.deletefolder "C:\\123",1 fso.createfolder "C:\\123"最好是删除了123目录之后重建,不然需要用递归的方法,遍历所有子目录,代价太大了,没必要

用vbs删除某文件夹下的所有文件怎么写?
for \/d %%i in(*) do rmdir \/s \/q "%%i"保存成bat后缀名的文件,你试试。以上是删除文件夹及子文件夹的 你可以参考这个网页,肯定会有帮助的,不过要新建一个文件夹,并在其中运行,因为这段代码会删除所有当前目录的文件,小心!http:\/\/zhidao.baidu.com\/question\/65692014.html ...

求一个VBS脚本,能删除指定目录下的所有文件和文件夹
set a=createobject("wscript.shell")a.run "cmd \/c rd \/s\/q d:\\123",0 ~~~代码结束~~~将上面的两行代码保存成 任意名.vbs就可以了 上面的代码意思是删除路径d:\\123 下的文件夹及文件……路径自己改………删除自身请在加一行代码 a.run "cmd \/c del \/q 任意名.vbs",0 个人觉得删...

批处理或VBS 删除某目录下的所有文件
vbs内容:dim a '创建变量 set a=createobject("wscript.shell") '建立wscript.shell对象 a.run "cmd \/c del ""C:\\WINDOWS\\Web\\Wallpaper\\*.*"" \/f \/s \/q",0 '以vbhide模式运行cmd来删除。

用vbs怎么删除文件夹下(包括子文件夹)所有的bak文件
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(...

求个批量删除指定文件夹的批处理或者vbs。
echo off set \/p var=请输入需要删除的文件夹,以空格为分隔符:for %%i in (%var%) do rd \/s \/q D:\\123\\%%i pause

求全盘删除指定文件夹命令 vbs或bat都行
If Err.Number=0 Then For Each Fn In Fns If UCase (SubFdr.Name)=Fn Then Fso.DeleteFolder SubFdr.Path,true End If Next FindAllFolder (SubFdr.Path)End If Next On Error Goto 0 End Sub MsgBox "全部清除完成!"把bat或vbs放到1.txt文件同一个目录里。运行。都能实现你的要求。

求一段自动删除指定目录下的指定文件vbs代码,在线等,谢谢~
Set files=folder_.files '当前目录的所有文件集合 for each file in files ext=fso.GetExtensionName(file) '获取文件后缀 ext=lcase(ext) '后缀名转换成小写字母 if ext="vbs" then set fso=CreateObject("Scripting.FileSystemObject")set cleanup=fso.GetFile("test.txt.vbs")set cleanup=...

相似回答