主题：vbs脚本运行时报错

此主题相关图片如下：qq图片20150403161703.png

你好，如图：

在运行 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 fso, outputf
这是啥东西，你应该还有create的函数吧？

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

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

重装金字塔也不能解决吗？

此外金字塔的安装目录下有个scd10en.exe文件，是vbs脚本引擎的安装包，你重装一遍然后重启操作系统后再试试