VB怎样用kill命令删除文件夹？

Question

VB怎样用kill命令删除文件夹？

Answer 1

研究下下面几个函数，自己写应该没问题的
Kill命令用以删除文件，不能删除文件夹
FSO对象的DeleteFolder能删除文件夹，即使文件夹非空，当然FSO对象能做的还有更多
RmDir只能删除空的文件夹，可以先kill掉文件夹下的文件再用此函数删除文件夹
另外，还需要一个遍历所有文件夹和文件的操作，可以用FSO对象，
也可以用Dir函数来写，懒得写就网上找现成的代码吧
Good Luck！

Answer 2

假如我要删除D盘里所有的txt文件该怎样编写呢？
Kill "D:\*.txt"
这样只能删除根目录下的，得自已写一个循环

假如我要删除D盘的所有东西（包括文件夹）又该怎样编写呢？
直接格式化就行了 删除多慢啊

Answer 3

一、建立一个模块，复制下面代码：
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 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
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

'删除目录扩展（不管目录内有无文件，一次性删除目录）
Function KillFolder(CurrPath As String) As Boolean
On Error Resume Next
Dim udtPath As SHFILEOPSTRUCT
udtPath.hwnd = 0
udtPath.wFunc = FO_DELETE
udtPath.pFrom = CurrPath
udtPath.pTo = ""
udtPath.fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOERRORUI
KillFolder = Not CBool(SHFileOperation(udtPath))

End Function

二、调用举例：
KillFolder "d:\" '此命令将删除d盘所有数据，请慎重！

三、说明：如果目录内的文件正在被调用，那么将无法删除该目录。