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 = &H1Private Const FO_COPY = &H2Private Const FO_DELETE = &H3Private Const FO_RENAME = &H4Private Const FOF_NOCONFIRMATION = &H10Private Const FOF_SILENT = &H4Private Const FOF_NOERRORUI = &H400Private Type SHFILEOPSTRUCThwnd As LongwFunc As LongpFrom As StringpTo As StringfFlags As IntegerfAnyOperationsAborted As LonghNameMappings As LonglpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESSEnd TypePrivate Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long'删除目录扩展（不管目录内有无文件，一次性删除目录）Function KillFolder(CurrPath As String) As BooleanOn Error Resume NextDim udtPath As SHFILEOPSTRUCTudtPath.hwnd = 0udtPath.wFunc = FO_DELETEudtPath.pFrom = CurrPathudtPath.pTo = ""udtPath.fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOERRORUIKillFolder = Not CBool(SHFileOperation(udtPath))End Function二、调用举例：KillFolder "d:\" '此命令将删除d盘所有数据，请慎重！三、说明：如果目录内的文件正在被调用，那么将无法删除该目录。