怎样删除一个文件夹

Question

Private  Const  FO_MOVE  =  &H1  
Private  Const  FO_COPY  =  &H2  
Private  Const  FO_DELETE  =  &H3  
Private  Const  FO_RENAME  =  &H4  
Private  Const  FOF_NOCONFIRMATION  =  &H10  
Private  Const  FOF_SILENT  =  &H4  
Private  Const  FOF_NOERRORUI  =  &H400  
Private  Declare  Function  SHFileOperation  Lib  "shell32.dll"  Alias  "SHFileOperationA"  (lpFileOp  As  SHFILEOPSTRUCT)  As  Long  
Private  Type  SHFILEOPSTRUCT  
               hwnd  As  Long  
               wFunc  As  Long  
               pFrom  As  String  
               pTo  As  String  
               fFlags  As  Integer  
               fAnyOperationsAborted  As  Long  
               hNameMappings  As  Long  
               lpszProgressTitle  As  String  '    only  used  if  FOF_SIMPLEPROGRESS  
End  Type  
 
Public  Function  KillPath(ByVal  sPath  As  String)  As  Boolean  
       On  Error  Resume  Next  
       Dim  udtPath  As  SHFILEOPSTRUCT  
       udtPath.hwnd  =  0  
       udtPath.wFunc  =  FO_DELETE  
       udtPath.pFrom  =  sPath  
       udtPath.pTo  =  ""  
       udtPath.fFlags  =  FOF_NOCONFIRMATION  Or  FOF_SILENT  Or  FOF_NOERRORUI  
       KillPath  =  Not  CBool(SHFileOperation(udtPath))  
End  Function  

Answer 1

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

Answer 2

windows中选中文件夹点右键,删除.

Answer 3

如果您只想删除文件夹：
RmDir "c:\ddd"

Answer 4

或许要这样
RmDir "c:\ddd\"