VB删除文件夹问题

Question

请问专家，VB中如何一次删除带有子文件夹的文件夹。

Answer 1

先遍历所有的文件,用kill删除,再遍历所有的文件夹,用 redir删除

Answer 2

Shell "cmd /c rd 你的文件夹路径 /s/q"

Answer 3

Shell "cmd /c rd 你的文件夹路径 /s/q"

Answer 4

简单是简单，但还要判断windows系统的版本，98的是command。

Answer 5

要这样用,不管文件夹5555下有多少目录、多少文件，均可一次删除：
Shell "c:\windows\system32\cmd.exe /c rd ""f:\5555""/s/q"DOS命令：RD,即RmDir C:\WINDOWS\system32>rd/? 
删除一个目录。 RMDIR [/S] [/Q] [drive:]path 
RD [/S] [/Q] [drive:]path     /S      除目录本身外，还将删除指定目录下的所有子目录和 
            文件。用于删除目录树。     /Q      安静模式，带 /S 删除目录树时不要求确认 C:\WINDOWS\system32>

Answer 6

试了一下,搞定。最好写成这样：Shell "c:\windows\system32\cmd.exe /c rd ""f:\5555""/s/q", vbHide

Answer 7

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongPrivate Type SHFILEOPSTRUCT
    hwnd   As Long
    wFunc   As Long
    pFrom   As String
    pTo   As String
    fFlags   As Integer
    fAborted   As Boolean
    hNameMaps   As Long
    sProgress   As String
End TypePrivate Const FO_DELETE = &H3Private Const FOF_ALLOWUNDO = &H40           '   移入回收站
Private Const FOF_CONFIRMMOUSE = &H2           '   删除。不放入回收站
Private Const FOF_NOCONFIRMATION = &H10           '   没有提示'*******************************************************
'       删除一个文件或文件夹。该过程可以删除非空的文件夹
'
'       参数:
'
'               sObject:   要删除的文件夹
'*******************************************************
Public Sub DeleteFolder(sObject As String)
    Dim SHFileOp     As SHFILEOPSTRUCT    With SHFileOp
        .wFunc = FO_DELETE
        .pFrom = sObject
        .fFlags = FOF_CONFIRMMOUSE Or FOF_NOCONFIRMATION
    End With
    SHFileOperation SHFileOp
End SubPrivate Sub Command1_Click()
    DeleteFolder "c:\temp\temp"
End Sub

Answer 8

http://www.vb110.com/Article/vbtxt/200903/2912.html
http://www.vb110.com/Article/vbtxt/200903/2921.html
这里有完整一点的源代码
我要分哦
这两个是遍历的    得到文件后用kill语法 删除