vb删除文件夹:在vb中删除带子文件夹的文件夹

OptionExplicit
　　PrivateSubCommand1_Click
　　DimstrPathNameAsString
　　strPathName=\"\"
　　strPathName=InputBox(\"请输入需要删除文件夹名称∶\",\"删除文件夹\")
　　IfstrPathName=\"\"ThenExitSub　　
　　OnErrorGoToErrorHandle
　　SetAttrstrPathName,vbNormal\'此行主要是为了检查文件夹名称有效性
　　RecurseTreestrPathName
　　Label1.Caption=\"文件夹\"&strPathName&\"已经删除！\"
　　ExitSub
　　ErrorHandle:
　　MsgBox\"无效文件夹名称:\"&strPathName
　　EndSub　　
　　SubRecurseTree(CurrPathAsString)
　　DimsFileNameAsString
　　DimPathAsString
　　DimsPathAsString
　　StaticoldPathAsString　　
　　sPath=CurrPath&\"\\\"　　
　　sFileName=Dir(sPath,31)\'31含义∶31=vbNormal vbReadOnly vbHidden vb vbVolume vbDirectory
　　DoWhilesFileName<>\"\"
　　IfsFileName<>\".\"AndsFileName<>\"..\"Then
　　IfGetAttr(sPath&sFileName)AndvbDirectoryThen\'如果是目录和文件夹
　　Path=sPath&sFileName
　　RecurseTreePath
　　sFileName=Dir(sPath,31)
　　Else
　　SetAttrsPath&sFileName,vbNormal
　　Kill(sPath&sFileName)
　　Label1.Caption=sPath&sFileName\'显示删除过程
　　sFileName=Dir
　　EndIf
　　Else
　　sFileName=Dir
　　EndIf
　　DoEvents
　　Loop
　　SetAttrCurrPath,vbNormal
　　RmDirCurrPath
　　Label1.Caption=CurrPath
　　EndSub

延伸阅读

• 2009-2-12-- vb创建目录:VB COM基础讲座之创建测试程序
• 2009-2-12-- vb对象:VB COM基础讲座之创建第一个COM对象
• 2009-2-12-- vb删除文件夹:98/ME下实现文件夹的共享和删除共享-vb教程
• 2008-9-25-- vb删除文件夹:个性化文件夹图标（VB）-vb教程
• 2009-1-15-- vb打开文件:如何实现VB中打开图像文件时的预览功能
• 2009-2-12-- vb删除文件夹:在vb中删除带子文件夹的文件夹
• 2009-2-12-- security文件夹:VB取得磁盘文件夹或文件的security
• 2009-2-12-- vb浏览文件夹:浏览文件夹中的图片（用VB实现）-vb教程
• 2008-9-25-- vb删除文件夹:vb建立删除文件夹
• 2008-9-25-- vb创建文件夹:用createdirectory创建文件夹-vb教程