没有引用microsoft Scripting runtime 库
在菜单中:
project->references
在references对话框中,找到microsoft Scripting runtime,打上钩

解决方案 »

  1.   

    要先引用FileSystemObject这个类型库
    菜单Project|Reference
    找Microsoft Scripting Runtime
      

  2.   

    因为CreateFolder根本不能返回一个目录
      

  3.   

    我试了,没错呀。是不是你的Microsoft Script Runtime安装有问题?
      

  4.   

    1,你可以在project->references中,找到microsoft Scripting runtime,打上钩。
    2,用另一种方法:
      Dim fso, fldr
      Set fso = CreateObject("scripting.filesystemobject")
      Set fldr = fso.CreateFolder("C:\MyTest")
       MsgBox "Created folder: " & fldr.Name
      

  5.   

    TO  jameschan(jameschan):
        行的,我试过的!!!