VB清空指定文件夹

呵呵..楼上的代码好象错了..rd是只能删除空目录的..

不过思路很不错呵..看看我的,例子是删除d:盘下的123目录,不管里面有没有文件呵..

Private Sub Command1_Click()
Shell "cmd /c del d:\123 /q", 0
Shell "cmd /c md d:\123", 0
End Sub

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Call delAllOfDir("c:\1") '删除"c:\1"下的所有东西及1
End Sub

Private Sub delAllOfDir(strDir As String)
    Shell "cmd /c rd " & strDir & " /s /q"
End Sub

二楼的测试通过，注意rd加上/s就表示连同子目录删除了
不过文件夹也删掉了，可以在后面再用md命令建立这个文件夹