vbs脚本运行时报错 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

补充一下:
问题出在倒数第5行:
上下文如下:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            NameFolder= year(date)*10000+month(date)*100+day(date)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            outputf = "e:\dataTickCmmdt\"&NameFolder&"\"&marketName(j)& "\"&prefixStockNameCur&"\"
            Set fso = CreateObject("scripting.filesystemobject")
               create fso, outputf
            set fso = Nothing
            If suffixStockNameCur>="00" And suffixStockNameCur<="99" And reportData.Volume>0 Then     '最好在收盘之后运行，否则成交量未必有
                myTickCmmdt reportData.label,marketName(j),outputf
            End If
        Next
    Next

完整的代码:

sub myGetTickCmmdt()
'this is the orignal one, wrting FUTURES ticks data.
    Dim marketName
    marketName=Array("SQ","DQ","ZQ","ZJ")                         '指定的期货市场，可以添加删除
     msgbox "h1"
    dim fso, outputf

    For j=0 To UBound(marketName)
        n=marketData.GetReportCount(marketName(j))
        For i=0 To n-1
            Set reportData=marketdata.GetReportDataByIndex(marketName(j),i)       '遍历指定市场的合约

            select case len(reportData.label)
                case 4
                    prefixStockNameCur=left(reportData.label,2)
                case 3
                    prefixStockNameCur=left(reportData.label,1)
                case 5
                    prefixStockNameCur=left(reportData.label,3)
            end select
            suffixStockNameCur=right(reportData.label,2)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            NameFolder= year(date)*10000+month(date)*100+day(date)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            outputf = "e:\dataTickCmmdt\"&NameFolder&"\"&marketName(j)& "\"&prefixStockNameCur&"\"
            Set fso = CreateObject("scripting.filesystemobject")
               create fso, outputf
            set fso = Nothing
            If suffixStockNameCur>="00" And suffixStockNameCur<="99" And reportData.Volume>0 Then     '最好在收盘之后运行，否则成交量未必有
                myTickCmmdt reportData.label,marketName(j),outputf
            End If
        Next
    Next

end sub

这个create是金字塔内部的函数，具体不记得了大概是3年前写的代码，现在已经不记得是什么意思了，但是大概是说为了写文件创造的对象吧。

以下是引用王锋在2015/4/3 22:30:09的发言：
从报错内容来看是在创建对象的时候，你试试重启金字塔问题能否得到解决？

还是不行。事情是这样的：
1）这个代码原来运行好好的，每天保存所有品种的tick数据；
2）某日发疯，装了visual studio community社区版，结果就变成这个模杨了。
3）您看怎么办？

主题：vbs脚本运行时报错