fsk33 2023-01-17 21:45 采纳率: 73.9%
浏览 43
已结题

VB查找文件夹并删除文件夹及其内的文件

本人用VB编写一个查找指定目录,如“d:\abc”下的所有名叫“123”的文件夹(目录abc中可能存在多个子文件夹)。
我希望将所有名叫“123”的文件夹显示在list控件中,并删除该文件夹及其里面的所有文件。
该如何编写呢?

  • 写回答

2条回答 默认 最新

  • 流比 2023-01-17 21:50
    关注
    
    Private Sub DeleteFolder()
        Dim folder As String = "d:\abc"
        Dim dir As New DirectoryInfo(folder)
        Dim subdirs() As DirectoryInfo = dir.GetDirectories("123")
        For Each subdir As DirectoryInfo In subdirs
            ListBox1.Items.Add(subdir.FullName)
            For Each file As FileInfo In subdir.GetFiles()
                file.Delete()
            Next
            subdir.Delete()
        Next
    End Sub
    

    删除文件夹及其内部文件可能会导致不可恢复的数据丢失。建议在进行测试之前备份文件

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 1月26日
  • 已采纳回答 1月18日
  • 创建了问题 1月17日

悬赏问题

  • ¥15 MATLAB动图的问题
  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名