7,763
社区成员
发帖
与我相关
我的任务
分享一个小问题，关于文件删除的，还请不吝赐教！
问题是这样的：
有一固定的目录位置，目录下不再有子目录，但时常会产生成千上万个.txt文档。这些文档大小不一，而本人只需要保留一个固定大小以上的文档，文件长度不够的需要在每天固定的时段删除。请问如何简单的实现删除所有规定大小以下的文档。
谢谢了。
有一固定的目录位置，目录下不再有子目录，但时常会产生成千上万个.txt文档。这些文档大小不一，而本人只需要保留一个固定大小以上的文档，文件长度不够的需要在每天固定的时段删除。请问如何简单的实现删除所有规定大小以下的文档。
谢谢了。
...全文
请发表友善的回复…
发表回复
叶帆 2003-08-19
- 打赏
- 举报
sss = Dir("*.*") －－－－>sss = Dir("*.txt") '指定txt文件
sss = Dir() －－－不变
sss = Dir() －－－不变
叶帆 2003-08-19
- 打赏
- 举报
sss = Dir("*.txt") '指定txt文件
叶帆 2003-08-19
- 打赏
- 举报
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
Greaitm 2003-08-19
- 打赏
- 举报
使用文件系统对象
在上海的老北京 2003-08-19
- 打赏
- 举报
:(
在上海的老北京 2003-08-19
- 打赏
- 举报
帮帮忙啦。
在上海的老北京 2003-08-19
- 打赏
- 举报
谢谢 yefanqiu(叶帆)
