用VBS删除指定文件夹下的所有文件（包括文件夹）?

来源：百度知道 编辑：UC知道 时间：2024/05/29 20:28:51
VB高手帮帮忙了

'删除“D：\yy”目录下的所有文件及文件夹
Const DeleteReadOnly = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("d:\yy\*.*"), DeleteReadOnly
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colSubfolders2 = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & "d:\yy" & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")

For Each objFolder2 in colSubfolders2
objFSO.deleteFolder objFolder2.name , DeleteReadOnly

Next

dim a '创建变量
set a=createobject("wscript.shell") '建立wscript.shell对象
a.run "cmd /c del ""C:\WINDOWS\Web\Wallpaper\*.*"