主题：vbs脚本运行时报错

完整的代码:

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