一个很困惑我的问题，程序已贴出，请指教！

If id < 3464250 Then
                Set FSO2 = server.CreateObject("Scripting.FileSystemObject")
                Set iFSO2 = FSO2.OpenTextFile(Directory.text + "\" + Fpath2 + "\" + uId2 + "\index.html")
                index_content = "<base href=http://www.blogcn.com/" + Fpath2 + "/" + uId2 + "/>" & Chr(13) & Chr(10) & iFSO.ReadAll()
                iFSO2.Close
                Set iFSO2 = Nothing
                Set FSO2 = Nothing
                Set re = New RegExp '进行正则替换
                re.IgnoreCase = True
                re.Global = True
                re.Pattern = "<script language=javascript src=\/blog\/myc\.js><\/script>"
                Diary_Main = re.Replace(index_content, Diary_Main)
                Set re = Nothing
                Diary_Main = Diary_Main & "<script src='/BlogerAd/blogad.js'></script>"
End If
在VB6。0 调试上面程序，在第2行Set FSO2 = server.CreateObject("Scripting.FileSystemObject")处提示实时错误'424'，要求对象 是什么错误，我看半天程序没什么问题嘛，请指教