VB 删除带子文件夹和文件的文件夹

最新推荐文章于 2021-07-30 23:38:30 发布

miaozk2006

最新推荐文章于 2021-07-30 23:38:30 发布

阅读量387

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82422229

版权

这篇博客主要介绍了如何使用VB语言来删除带有子文件夹和文件的整个文件夹，包括提供相关代码示例和参考文章，涉及到文件夹遍历、复制以及文件操作等内容。

摘要由CSDN通过智能技术生成

代码如下：

Sub RecurseTree(CurrPath As String) 'currpath问文件夹路径
    Dim sFileName As String, newPath As String, sPath As String
    Static oldPath As String
    sPath = CurrPath & "\"
    sFileName = Dir(sPath, 31) '31的含义∶31=vbNormal+vbReadOnly+vbHidden+vbSystem+vbVolume+vbDirectory
    Do While sFileName <> ""
        If sFileName <> "." And sFileName <> ".." Then
            If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目录和文件夹
                newPath = sPath & sFileName
                RecurseTree newPath
                sFileName = Dir(sPath, 31)
            Else
                SetAttr sPath & sFileName, vbNormal
                Kill (sPath & sFileName)
                'Label1.Caption = sPath & sFileName '显示删除过程
                sFileName = Dir
            End If
        Else
            sFileName = Dir
        End If
        DoEvents
    Loop
    SetAttr CurrPath, vbNormal
    RmDir CurrPath
    'Label1.Caption = CurrPath
End Sub

摘自：网络整理