Question

VB中的Kill代码不能删除只读文件更不用说系统文件了,有没有其他代码可以将它们删除?

想编一个文件来删除只定位置的系统文件(病毒),在"F:\artuon.ini"

Answer 1

'将以下代码放到模块里，然后就可以调用KillPath来删除了。可以删除任何属性的文件，使用非常方便，如果删除失败，函数会返回false值，不会出错。Private Const FO_DELETE = &H3
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
End Type
Public Function KillPath(ByVal sPath As String, Optional flags As Long = &H10 + &H4 + &H400) As Boolean
On Error Resume Next
Dim udtPath As SHFILEOPSTRUCT
udtPath.hwnd = 0
udtPath.wFunc = FO_DELETE
udtPath.pFrom = sPath
udtPath.pTo = ""
udtPath.fFlags = flags
KillPath = Not CBool(SHFileOperation(udtPath))
End Function

Answer 2

用setattr 文件名,属性常数，可以右键查查关键字定义，然后就可以kill掉文件了！

Answer 3

使用setattr改变文件属性后，再使用kill删除