[问题] 如何自动清空指定文件目录下的所有文件 [复制链接]

可以使用GJ命令库的
|-- 遍历指定目录下所有文件名 命令
|-- 遍历指定目录下所有文件夹名 命令
从返回的文件名中For循环分别删除
下载地址http://bbs.anjian.com/showtopic-714572-1.aspx

' 定义白名单，可根据需要添加或修改白名单中的文件名
whiteList = Array("xxxx.txt", "xxx2.txt","cccc.bmp")
' 要删除文件的目录，可修改为实际要操作的目录
targetFolder = "D:\kkkk"
' 创建文件系统对象
Set fso = CreateObject("Scripting.FileSystemObject")
' 检查目录是否存在
If fso.FolderExists(targetFolder) Then
' 获取目录中的所有文件
Set folder = fso.GetFolder(targetFolder)
Set files = folder.Files
' 遍历目录中的每个文件
For Each file In files
' 检查文件名是否在白名单中
isWhitelisted = False
For i = 0 To UBound(whiteList)
If file.Name = whiteList(i) Then
isWhitelisted = True
Exit For
End If
Next
' 如果文件不在白名单中，则删除该文件
If Not isWhitelisted Then
On Error Resume Next
fso.DeleteFile file.Path, True
If Err.Number <> 0 Then
WScript.Echo "删除文件 " & file.Path & " 时出错: " & Err.Description
Err.Clear
End If
End If
Next
Else
WScript.Echo "指定的目录 " & targetFolder & " 不存在。"
End If
' 释放对象
Set fso = Nothing
这是一段可保留你想保留的文件，删除一切指定文件夹下所有文件的功能 复制可以直接运行，也可以做成子程序来调用