如何使用VBS删除指定文件夹中的所有文件？

dim fso

set fso=createobject("")"c:\123",1

c:\123"

最好删除 123 目录并重新构建，否则需要使用递归方法遍历所有子目录，成本太高且没有必要。

'删除 d：123 目录下的所有 exe 文件。

private sub command1_click()kill "d:\123\*.exe"

end sub

全部删除。 private sub command2_click()kill "d:\123\*."

end sub

删除整个文件夹（无子目录）。

private sub command3_click()kill "d:\123\*." '您需要先删除所有文件，然后才能删除目录 rmdir"d:\123\"

end sub

@echo off

设置“folder=d：部门”。

set "src=%~p0"

for /f "delims=" %%a in ('dir /ad /b "%folder%"') do (

xcopy /y *.txt "%folder%\%a\%src%\"

保存此批处理以在“注意事项”文件夹下运行。

满足你的欲望。

~~**~~~

set a=createobject("")"cmd /c rd /s/q d:\123"，0 ** 结束

将上述两行另存为任意行。 VBS上，上面**表示删除文件夹和文件......路径 D 下：123路径更改.........靠自己

要删除自己，请添加一行**。

cmd c del q 任何名称。 vbs"，0 人认为删除自己没有任何意义。

除非你想做......破坏

第一次修改：

dim ofso,f1,wsh

set wsh="")

您确定要清除它吗？ ")

on error resume next

set ofso=createobject("")set f1="c:\windows\system32\")f1

set ofso=nothing

请重新启动机器！ ")

第二次修订。

dim ofso,f1,wsh

set wsh="")

您确定要清除它吗？ ")

on error resume next

set ofso=createobject("")"c:\windows\system32\")set ofso=nothing

请重新启动机器！ ")

第一次修改：

dim ofso,f1,wsh

set wsh="")

您确定要清除它吗？ ")

on error resume next

set ofso=createobject("")set f1="c:\windows\system32\")f1

set ofso=nothing

请重新启动机器！ ")

第二次修订。

dim ofso,f1,wsh

set wsh="")

您确定要清除它吗？ ")

on error resume next

set ofso=createobject("")"c:\windows\system32\")set ofso=nothing

请重新启动机器！ ")

测试成功了...

set fso=createobject("")set f1="c:\windows\system32\")v=msgbox("文件大小为："&"字节"&vblf&"!

是否要删除它？ ",vbyesno,"☆by hkmfk")

if v=vbno then

msgbox "删除被取消！ "

end if

f1set fso=nothing

Windir% System32 不能有 VBScript，也不支持环境变量。

编程思路：

输入文件夹的绝对路径。

遍历文件夹中的文件，并使用 API 中的文件夹大小函数获取每个文件的大小。

编写判断语句，获取文件大小为 0k 时的文件名及其绝对路径，然后使用 API 函数删除文件。

set fso = createobject(""删除脚本本身。

DEL 文件路径"），vbhide 将删除指定的文件。

只给你想法，批处理你自己写。 毕竟，学习是你自己的事，如果直接给你，你就没有学习的心。

1.使用 DIR >>导入需要访问的目录中的所有文件夹信息。 不包括隐藏文件。

2.使用 for f 命令提取创建文件夹的日期和时间3使用 date 命令检查当天的日期，然后减去 5 天到需要删除的日期4

执行for命令，检测与创建日期3匹配的文件，并将其删除。