VB 强制删除文件和文件夹

在WIN7系统里，有些系统文件管理员都不可删除，我在清理系统时，用了“WIN7优化大师”的软件，“WIN7优化大师”可以删除系统文件夹。我问几个问题：1.怎么在VB中强制删除文件夹和文件？？？2.怎么VB中强制取得所有权？？？

看看能够帮到你吧。。。。3个方法可以实现:
1:
kill 文件 '删除文件
rmdir 文件夹 '删除文件夹

如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。

2:
或者用对象的方法:
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile 删除文件
fs.deletefolder 删除文件夹

3:
用API也可以办到
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

deletefile 文件名 '强制删除一个文件