VB中如何删除子文件夹的文件夹?

Question

注意，只是文件夹，不是文件，比如删除“c:/temp”里的所有文件夹，但是文件还留着，，，该怎么写？

Answer 1

如果子文件夹中有文件，也还是删不掉的。你的意思是把文件都 Copy 出来，把文件夹删掉？

Answer 2

如果文件夹下的子文件夹都是空的：
Dim strDirectory As StringOn Error Resume NextstrDirectory = Dir("c:\temp\*.*", vbDirectory)Do While strDirectory > ""
    strDirectory = "c:\temp\" & strDirectory
    RmDir(strDirectory )
    strDirectory = Dir()
Loop

Answer 3

额。。子文件夹中有文件连文件带子文件夹全删了，c:/temp 里的文件不删
网上查到这个，但不知道有没有我说的效果，另外能不能强制删除？如果我有个窗口打开了子文件夹，希望能强制删掉
Set fs = CreateObject("Scripting.FileSystemObject"）
fs.deletefile 删除文件
fs.deletefolder 
删除文件夹
3:用API也可以办到
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
deletefile 文件名 '强制删除一个文件