用按键精灵做一个自动搜索并删除文件夹的脚本该怎么写

Question

以前用的脚本主要是下面这几行代码，能够删除指定路径的文件夹。
Dim fso
set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder "E:\yx\zs\z08", True
fso.DeleteFolder "E:\yx\ks\k08", True
现在想要做一个新的脚本，首先是搜索指定的文件夹（如上文中的yx文件夹）中，含有指定字符的子文件夹（如上文中的08），然后删除这个子文件夹或者也可以只删除这个子文件夹中的所有文件，最好有进度显示正在删除的是哪个文件夹

Answer 1

看样子你懂VB，按键精灵自带的两个函数你可以参考运用一下，再结合其它函数就能实现你想要的操作，只能给函数你，删除那些你自己写
Function 遍历指定目录下所有文件名(文件夹路径)
//注意：返回的是数组变量，存储着每一个文件名。
//例子：数组 = lib.文件.遍历指定目录下所有文件名("C:\")
// For i=0 to UBound(数组)-1
// TracePrint 数组(i)
// Next
Dim 文件名,fso,folder,f,files
文件名 = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(文件夹路径)
Set files = folder.files
For Each f In files
文件名 = 文件名 & f.name & ","
Next
Set fso = Nothing
//遍历指定目录下所有文件名 = 文件名
遍历指定目录下所有文件名 = Split(文件名, ",")
End Function
Function 遍历指定目录下所有文件夹名(文件夹路径)
//注意：返回的是数组变量，存储着每一个文件夹名。
//例子：数组 = lib.文件.遍历指定目录下所有文件夹名("C:\")
// For i=0 to UBound(数组)-1
// TracePrint 数组(i)
// Next
Dim 文件夹名,fso,folder,f,files
文件夹名 = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(文件夹路径)
Set files = folder.SubFolders
For Each f In files
文件夹名 = 文件夹名 & f.name & ","
Next
Set fso = Nothing
//遍历指定目录下所有文件夹名 = 文件夹名
遍历指定目录下所有文件夹名 = Split(文件夹名, ",")
End Function