vb使用drivelistbox和dirlistbox控件删除文件夹

Question

在vb中，利用drivelistbox和dirlistbox控件选择一个文件夹，点击一个命令按钮删除选中的那个文件夹以及下面的所有文件和子文件夹。如何实现上面的功能？（不用通用对话框）

Answer 1

Private Sub Command1_Click()

    Dim FSO As New FileSystemObject

    FSO.DeleteFolder Dir1.Path

End Sub

'必须先引用Microsoft Scripting Runtime类库

Answer 2

这是一个有挑战性的问题，应该是这样：
对于一个文件夹的删除，因为非空是不能删除的，而文件夹里又有可能有子文件夹，所以要采用递归算法：
编写一个递归过程 ---- 删除文件夹：
if 文件夹为空 Then
就删除
else
‘搜索该层文件夹里的所有文件和文件夹，一边搜索一边删除
if 是文件 Then
删除该文件
else '如果是文件夹
递归调用“删除文件夹”过程
En dif
End If追问

搜索该层文件夹里的所有文件和文件夹，一边搜索一边删除
如何实现啊？？

Answer 3

这两个控件，只是文件目录选择用的。有删除，得自己写删除的代码，rmdir <directory path>、kill<file path>追问

kill可删除文件夹吗？？

追答

呵 运行试试。

追问

不行啊！！！

Answer 4

vxpo
472