Private Sub Command1_Click()Dim nPath As String, f As StringnPath = Environ("SystemRoot") & system32\drivers\etc" 'f = nPath & "\hosts" 'If Dir(nPath, vbDirectory) = "" Then MkDir nPath 'Open f For Append As #1Print #1, " "Print #1, " " & ComputerNamePrint #1, " " & Now()Close #1MsgBox "已经成功修复HOSTS", vbInformation, "提示"Open IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "hosts" For Output As #1Close #1End Sub
|