如何删除一个非空文件夹


请用下面这两个函数：RemoveDirectory 
 
Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long 
说明 
删除指定目录 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
lpPathName String，要删除的那个目录的名字 
注解 
在调用这个函数前，目录必须为空
 DeleteFile Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long 
说明 
删除指定文件 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
lpFileName String，欲删除文件的名字 
注解 
与vb的kill语句相似，在windows 95下使用这个函数要小心——即使文件当前正由一个应用程序打开，该函数也会将其删除