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

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

谢谢了。
...全文
24 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
叶帆 2003-08-19
  • 打赏
  • 举报
回复
sss = Dir("*.*") ---->sss = Dir("*.txt") '指定txt文件
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
  • 打赏
  • 举报
回复
使用文件系统对象
  • 打赏
  • 举报
回复
:(
  • 打赏
  • 举报
回复
帮帮忙啦。
  • 打赏
  • 举报
回复
谢谢 yefanqiu(叶帆)

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧