一个小问题，关于文件删除的，还请不吝赐教！

[在上海的老北京]

问题是这样的：
有一固定的目录位置，目录下不再有子目录，但时常会产生成千上万个.txt文档。这些文档大小不一，而本人只需要保留一个固定大小以上的文档，文件长度不够的需要在每天固定的时段删除。请问如何简单的实现删除所有规定大小以下的文档。

谢谢了。

[在上海的老北京]

谢谢 yefanqiu(叶帆)

[在上海的老北京]

帮帮忙啦。

[在上海的老北京]

:(

[Greaitm]

使用文件系统对象

[刘洪峰AIoT]

Private Sub Command1_Click()
Dim sss As String
sss = Dir("*.*")

While sss <> ""
Debug.Print sss
Debug.Print FileLen(sss)

If FileLen(sss) < 指定长度 Then Kill (sss)
sss = Dir()
Wend
End Sub

[刘洪峰AIoT]

sss = Dir("*.txt") '指定txt文件

[刘洪峰AIoT]

sss = Dir("*.*") －－－－>sss = Dir("*.txt") '指定txt文件
sss = Dir() －－－不变