磁盘免疫函数实现及优化
Private Function mkname(id As Long) On Error GoTo a Dir1.Path = Drive1.List(id) MkDir Left(Dir1.List(0), 3) & "Autorun.inf" SetAttr Left(Dir1.List(0), 3) & "Autorun.inf", vbReadOnly + vbHidden + vbSystem MkDir Left(Dir1.List(0), 3) & "Autorun.inf病毒免疫目录不要删除!.." a: If Err.Number = 68 Then Exit Function ElseIf Err.Number = 75 Then Exit Function End If End Function
文件大小：5.84KB
评论区