ON ERROR RESUME NEXT
ciker_path = InputBox("This program can help you remove viruses."&vbCr&vbCr&"Please enter the directory below: "&vbCr&vbCr&"By Ciker 08.03.30", "Clear","C:\")
ciker_exe = InputBox("Please enter the directory where the exe virus file is located below: "&vbCr&vbCr&"By Ciker 08.03.30", "Clear","C:\")
Set Fso=CreateObject("")
Set fl0=(ciker_path)
Set fl1=(ciker_exe)
msgbox “Clear successfully!”