怎样删除文件夹

Question

shell deltree 呵呵,非正规方法.

Answer 1

Private Declare Function CreateDirectoryEx Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As Any) As Long
Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    'Create a new directory
    CreateDirectoryEx "C:\Windows", "C:\KPD-Team", ByVal 0&
    'remove the directory
    RemoveDirectory "C:\KPD-Team"
End Sub

Answer 2

希望如下能对你有帮助,使用前先应用fso
Public Sub DeleteEverythingBelongToFolder(folderspec)
   On Error Resume Next
   
  '删除目录(folderspec)下的所有文件
    Dim fs, fc
    Dim f As Folder
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
       '删除文件夹
    Set SubSubFolders = f.SubFolders
    Dim TempFolder As Folder
    For Each TempFolder In SubSubFolders
         TempFolder.Delete True
    Next
       '删除文件
    Set tempFiles = f.Files
    Dim tempFile As File
    For Each tempFile In tempFiles
        tempFile.Delete True
    Next
  
   
End Sub

Answer 3

DeleteFolder 方法
         描述删除一个指定的文件夹和它的内容。语法object.DeleteFolder folderspec[, force] DeleteFolder 方法语法有如下几部分：部分 描述 
object 必需的。始终是一个 FileSystemObject 的名字。 
folderspec 必需的。要删除的文件夹的名字。 Folderspec 可以在最后的路径部件中包含通配符。 
force 可选的。Boolean 值，如果要删除具有只读属性设置的文件夹，其值为 True，如果值为 False （缺省），则不能删除具有只读属性设置的文件夹。 
说明DeleteFolder方法对文件夹中有无内容不做区别。不管指定的文件夹中是否有内容，它都被删除。如果没有发现相匹配的文件夹，则发生一个错误。DeleteFolder 方法停止在它遇到的第一个错误上，不要尝试回卷或撤消错误发生前所做的任何改变。

Answer 4

用Kill filename(文件夹名) *.*（文件夹内要删除文件的类型）

Answer 5

删除一个存在的目录或文件夹。语法
RmDir path必要的 path 参数是一个字符串表达式，用来指定要删除的目录或文件夹。path 可以包含驱动器。如果没有指定驱动器，则 RmDir 会在当前驱动器上删除目录或文件夹。说明如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。RmDir 语句示例
本示例使用 RmDir 语句删除已存在的目录或文件夹。' 假设 MYDIR 为一空的目录或文件夹。
RmDir "MYDIR"   ' 将 MYDIR 删除。
或
RmDir "c:\mydir"