Set p_ofso = CreateObject("Scripting.FileSystemObject")   '创建文件系统对象
报自动化错误(错误 440)
引用了
Microsoft script control 1.0
Microsoft scripting runtime
不行,大家来指正!

解决方案 »

  1.   

    "Microsoft Scripting Runtime"
      

  2.   

    '要这样创建
    Dim p_ofso As New FileSystemObject
    Set p_ofso = CreateObject("Scripting.FileSystemObject")
      

  3.   

    先引用Microsoft Scripting Runtime
    然后,添加如下代码:
    Dim fsoo As FileSystemObjectSet fso = New FileSystemObject'这里添加你需要的代码Set fso = Nothing
      

  4.   

    引用Microsoft Scripting Runtime,即C:/winnt/system32/scrrun.dll
    然后
    Dim p_ofso As New FileSystemObject
    Set p_ofso = CreateObject("Scripting.FileSystemObject")
      

  5.   

    你定义Dim oFso As New FileSystemObject之后就不用Set oFso = Server.CreateObject("Scripting.FileSystemObject")了.直接对oFso 进行操作就可以了
      

  6.   

    不行,还是报自动化错误(错误 440)Dim p_ofso As New FileSystemObject
    Call get_txt '取remote_dir值string型
    p_ofso.CopyFile remote_dir, App.Path, True
      

  7.   

    =================================================
    HTTP://WWW.ITZYK.NET IT资源库--->IT人的专业资源库
    =================================================
    http://www.itzyk.net 中国IT人的技术资源网站。网站刚刚起步,希望广大IT网友们加入我们,我们会一直把这个网站做大,做全起来。现在网站分为两大部分:http://bbs.itzyk.net -->专业讨论DoNet技术的论坛社区 http://down.itzyk.net  各种程序源码的下载站。现在论坛区正处于发展壮大期,诚邀各位有志于IT技术方面的朋友加入我们的论坛来负责版主一职,发挥你们的能力让我们把这个论坛壮大起来吧!http://bbs.itzyk.net  欢迎您的到来!同时也欢迎各位IT朋友批评、指教!
      

  8.   

    Dim p_ofso As New FileSystemObject
    p_ofso = CreateObject("Scripting.FileSystemObject")
      

  9.   

    Microsoft Scripting Runtime就这个,不然就把代码贴出来
      

  10.   

    各位辛苦了!以下为出错代码
    Function file_copy() As Integer
      Dim p_ofso As New FileSystemObject
      Dim remote_dir As String
      Set p_ofso = CreateObject("Scripting.FileSystemObject")   '<-创建文件系统对象,执行到这一句报错,自动化错误
      p_ofso.CopyFile remote_dir, App.Path, True
    End Function
      

  11.   

    两个问题:
    第一,检查一下remote_dir这个文件路径有没有错误,有时不注意拼写错误
    第二,检查你的目标路径是不是具有只读属性."注意如果 destination 具有只读属性设置,不论 overwrite 值如何,CopyFile 都将失败。"
      

  12.   

    引用的是"Microsoft Scripting Runtime",
    如果还不行,请仔细检查一下你的代码是否有别的必须的库你没有引用,
    VB中经常有这样的问题。
    还有,注意你的代码里COM对象声明和创建代码是否正确。
      

  13.   

    baronnnd() ( ) :
    路径没问题,还没执行到使用路径就报错。officecn(Hotdog) ( ):
    还有其他必须的引用吗?是哪个?
    代码里COM对象声明和创建代码应该如何写?不如麻烦你也简单试试这个例子,看能不能拷贝文件!
      

  14.   

    Microsoft Scripting Runtime
    已经引用了
      

  15.   

    我的VB里怎么没有Microsoft Scripting Runtime,目录译也没有
      

  16.   

    explore_xu(冰) :在引用里面找