怎样删除一个非空的文件夹?

Question

如题!

Answer 1

'引用Microsoft Scripting RunTime
Private Sub Command1_Click()
    Dim f As New FileSystemObject
    f.DeleteFolder "c:\HiJxc", True
    
    Set f = Nothing
End Sub

Answer 2

DeleteFolder方法对文件夹中有无内容不做区别。不管指定的文件夹中是否有内容，它都被删除。

Answer 3

1、添加引用microsoft scripting runtime
方法：选择菜单“工程”-->“引用”-->选择“microsoft scripting runtime”2、使用方法
Option ExplicitPrivate Sub Form_Load()
Dim FileSys As New FileSystemObject
Set FileSys = CreateObject("scripting.filesystemobject")
FileSys.DeleteFolder "E:\changzhou", True
End Sub

Answer 4

1、添加引用microsoft scripting runtime
方法：选择菜单“工程”-->“引用”-->选择“microsoft scripting runtime”2、使用方法
Option ExplicitPrivate Sub Form_Load()
Dim FileSys As New FileSystemObject
Set FileSys = CreateObject("scripting.filesystemobject")
FileSys.DeleteFolder "E:\changzhou", True
End Sub

Answer 5

同意：
 '引用Microsoft Scripting RunTime
Private Sub Command1_Click()
    Dim f As New FileSystemObject
    f.DeleteFolder "c:\HiJxc", True
    
    Set f = Nothing
End Sub的

Answer 6

'引用Microsoft Scripting RunTime
Dim FSO As New FileSystemObject
   
If FSO.FolderExists("c:\temp") = True Then  '先刪掉原來的
        FSO.DeleteFolder ("c:\temp")
    End If

Answer 7

楼上所有的方法都是用Microsoft Scripting RunTime来完成的。这的确不错，但需要注意的是你最好使用低版的进行编译，否则后果我就不说了。要么就将你用的Microsoft Scripting RunTime随程序打包。所以我再教你一个办法，就是引用API：Private Const FO_DELETE = &H3   ' 删除Private Const FOF_ALLOWUNDO = &H40 ' 移入回收站
Private Const FOF_CONFIRMMOUSE = &H2 ' 直接删除。不放入回收站
Private Const FOF_NOCONFIRMATION = &H10 ' 没有提示Private 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 Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
sub command1_click()
    Dim SHFileOp As SHFILEOPSTRUCT
    
    With SHFileOp
        .wFunc = FO_DELETE
        .pFrom = "要删除的文件夹或文件"
        .fFlags = &H2 Or &H10    ' 直接删除且不显示进度
    End With
    SHFileOperation SHFileOp
end sub这个API还可以复制、移动等操作，很不错。