用kill 怎么删除一个目录啊？

[zuing]

[zuing]

rmdir "g:\zuing"
提示：路径/文件找不到。可是盘符和目录名都对阿？？？？？？？？？？？？

[zuing]

哦，因为rmdir是删除一个空目录。那什么命令是删除一个非空目录啊？

[heroyong]

应该没有直接的命令！

你如果真想删除一个目录，对其下面所有子目录进行遍历，从最后一个空的目录删除开始
起，对文件就很简单的 kill "*.*"

[ipman]

用filelist控件一个一个删试试？

[ltpao]

用Kill命令删除目录很麻烦，试一试下面的函数
Private Const FO_DELETE = &H3
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
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

[xxlroad]

to : ltpao(啊炮) 你的东东真多，好羡慕 :）