磁盘免疫自己写的还不太完美

磁盘免疫 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