如何删除文件及文件夹下的所有文件 vb

1 删除文件

Kill 语句示例

本示例使用 Kill 语句将磁盘中的文件删除。

' 假设 TESTFILE是一数据文件。
Kill "TestFile"   ' 删除。

' 将当前目录下所有 *.TXT 文件全部删除。
Kill "*.TXT" 
kill "这里显示你要删除的文件"
呵呵,简单吧。。。

2 删除文件夹中的所有文件

MyPath = target & "/"  ' 指定路径。MyPath 是要删除的文件夹
            myname = Dir(MyPath, vbDirectory)   ' 找寻第一项。
            Do While myname <> ""
               myname = Dir
               If myname = "." Or myname = ".." Or myname = "" Then
               Else
              Kill MyPath & myname ‘myname 是该文件夹中的文件
               End If
               txtSql.Text = txtSql.Text & myname
            Loop
试试吧,呵呵。。。。
  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值