关于隐藏文件夹的代码出错

Question

运行“隐藏"按键时，提示Acticex控件不能创建对象。运行“调试"问题出在下面红色代码处，请朋友们帮忙指教。
Dim fname$, attrb&
Private Sub Form_Load()
    Command1.Caption = "隐藏"
    Command2.Caption = "显示"
    Me.Caption = "文件夹操作"
End SubPrivate Sub Command1_Click()
    If Combo1 = "" Then
    MsgBox "请输入要隐藏的文件夹名", vbDefaultButton4, "提示"
    Else
    fname = Trim(Combo1)
    attrb = 2
Call Changeattr(fname, attrb)
MsgBox "已经隐藏", vbDefaultButton4, "提示"
End If
End SubPrivate Sub Command2_Click()
     If Combo1 = "" Then
    MsgBox "请输入要显示的文件夹名", vbDefaultButton4, "提示"
    Else
    fname = Trim(Combo1)
    attrb = 0
    Call Changeattr(fname, attrb)
    MsgBox "已经显示", vbDefaultButton4, "提示"
    End If
End SubPrivate Sub Changeattr(folderspec$, attrno&)
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")    Set f = fs.GetFolder(folderspec)
    f.Attributes = attrno
End Sub

Answer 1

'引用 Microsoft Scripting Runtime
Dim fs As New FileSystemObject

Answer 2

引用了 Microsoft Scripting Runtime 还是提示出错，不行啊！

Answer 3

近阶段穷疯了我，，10分我也要!!Dim fname$, attrb&
Private Sub Form_Load()
    Command1.Caption = "隐藏"
    Command2.Caption = "显示"
    Me.Caption = "文件夹操作"
End SubPrivate Sub Command1_Click()
    If Combo1 = "" Then
    MsgBox "请输入要隐藏的文件夹名", vbDefaultButton4, "提示"
    Else
    fname = Trim(Combo1)
    attrb = 2
Call Changeattr(fname, attrb)
MsgBox "已经隐藏", vbDefaultButton4, "提示"
End If
End SubPrivate Sub Command2_Click()
    If Combo1 = "" Then
    MsgBox "请输入要显示的文件夹名", vbDefaultButton4, "提示"
    Else
    fname = Trim(Combo1)
    attrb = 0
    Call Changeattr(fname, attrb)
    MsgBox "已经显示", vbDefaultButton4, "提示"
    End If
End SubPrivate Sub Changeattr(folderspec$, attrno&)
    Dim f
    'Set fs = CreateObject("Scripting.FileSystemObject")
    'Set f = fs.GetFolder(folderspec)
    Dim fs As New Scripting.FileSystemObject
    
    Set f = fs.GetFolder(folderspec)    f.Attributes = attrno
End Sub

Answer 4

应该是你VB系统的关系，你的代码我机器是不会报错的，你VBSP5，SP6补丁有没有打好？