最近用到了vb中的wsh和fso组件，可每次编译总在这两个语句中出现问题。请各位大虾帮助一下！！

使用FSO要先引用Microsoft Scripting Runtime

vb软件装机的时候有没有这两个组件啊？？是不是要重新装一下呢？？
楼上的意思是要在程序的代码中进行引用吗？？

不是，只能在设计时引用。点“工程”菜单-“引用”命令，在“引用”对话框中找到“Microsoft Scripting Runtime”并选勾，点“确定”引用了，再在代码中声明:

Private Sub Form_Load()
Dim myFso As New FileSystemObject
myFso = CreateObject("Scripting.FileSystemObject")

'这时就可以随意使用 myFso 对象的所有过程了!
End Sub

谢谢楼上。
那wsh的应用是不是也同理呢？？

楼上，我的程序代码是这样的，功能是检测震荡波病毒。按照您的说法去引用Microsoft Scripting Runtime，结果运行还是有错误啊。请求指点迷津。

Private Sub Form_Load()

Dim findfolder, delreg

Set fso = wscript.CreateObject("scripting.filesystemobject")

Set wsh = wscript.CreateObject("wscript.shell")

findfolder = fso.getspecialfolder(1)

If (fso.fileexist(findfolder & "\avserver.exe")) = flase Then

delreg = wsh.regread("HKLM\software\microsoft\windows\currentversion\run\avserver.exe")

If Err.Number <> 0 Then

MsgBox "电脑中没有种“振荡波”", 64, "GOOD"

wscript.quit

Else

If (MsgBox("已经中“振荡波”病毒，是否清除？", vbYesNo, "BAD")) = vbYes Then

Call kill

Call del

wsh.regdelete "HKLM\software\microsoft\windows\currentversion\run\avserve.exe"

MsgBox "注册表中的加载项已经清除！", 64, "清除"

End If

End If

End If

End

End Sub

Sub del()

Set fso = wscript.CreateObject("scripting.filesystemobject")

getfolder = fso.getspecialfolder(1)

fso.deletefile (getfolder & "\avserve.exe")

End Sub

Sub kill()

Set wsh = wscript.CreateObject("wscript.shell")

wsh.run "cmd.exe/c kill.bat"

wscript.sleep 1200

End Sub

哪位哥哥帮忙看看这个程序啊？？ 我是真的弄不懂了。求助啊？？？

他前面的名字需不需要定义一下啊,感觉好象是自动生成的啊??

那个wsh组件是怎么一回事啊,它也需要引用吗??