Question

VBS怎样在一个文件夹下，所有的子文件夹如果有为空的，则删除。

如果有内容的则直接跳过，求高手指点，最好有思路的解答，非常感谢！

Answer 1

编程思路：

1. 输入文件夹的绝对路径。

2. 遍历文件夹里的文件，再利用API中的文件夹大小函数获得每个文件的大小。

3. 写一条判断语句，当文件的大小为0K时获得它文件名和它的绝对路径，再利用API函数删除该文件。

   
   

追问

请指教第2条的方法 我只知道获取文件夹和文件 你说的判断文件大小 用什么函数？

追答

//写一条,自定义函数。

Function FSize(fileSrcName) 'fileSrcName文件所在位置。

Dim fso, f, s

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(fileSrcName)

s = f.size '字节

msgbox s '调试

return s

End Function

//调用================================
dim size_f
size_f=FSize("D:/test.txt")
if size_f="0" then
msgbox "文件即将删除"
‘删除操作------------
略
略
略
略
‘删除操作------------
end if