Set p_ofso = CreateObject("Scripting.FileSystemObject") '创建文件系统对象
报自动化错误(错误 440)
引用了
Microsoft script control 1.0
Microsoft scripting runtime
不行,大家来指正!
报自动化错误(错误 440)
引用了
Microsoft script control 1.0
Microsoft scripting runtime
不行,大家来指正!
解决方案 »
- 【声讨】360“实时保护”中的“系统防火墙”
- 1,2,3,4,分别出值问题
- VB 如何实现即打即停(打印工资条或是发票)
- 如何使FILETIME类型的时间值转化为我们看得懂的时间日期形式?
- 编程如何模拟鼠标单双击?比如控制鼠标每10秒单击一下左键,怎么实现?
- 200分高分求高解——网络(lan)视频解决方案
- 谁知道OCX怎么反编译啊,狂放1000分
- 菜鸟提问别见笑。/
- 请教MSHFlexGrid行高问题?
- 请问WORD文档(*.doc)除了用WORD应用程序打开外,还有没有起它的工具可以看啊!!!
- 如何控制MSFlexGrid的水平滚动条,上下的滚动条可以用其TopRow属性搞掂,那水平的怎么办?请各位修改一下我代码的BUG
- 回调函数和菜单的问题
Dim p_ofso As New FileSystemObject
Set p_ofso = CreateObject("Scripting.FileSystemObject")
然后,添加如下代码:
Dim fsoo As FileSystemObjectSet fso = New FileSystemObject'这里添加你需要的代码Set fso = Nothing
然后
Dim p_ofso As New FileSystemObject
Set p_ofso = CreateObject("Scripting.FileSystemObject")
Call get_txt '取remote_dir值string型
p_ofso.CopyFile remote_dir, App.Path, True
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朋友批评、指教!
p_ofso = CreateObject("Scripting.FileSystemObject")
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
第一,检查一下remote_dir这个文件路径有没有错误,有时不注意拼写错误
第二,检查你的目标路径是不是具有只读属性."注意如果 destination 具有只读属性设置,不论 overwrite 值如何,CopyFile 都将失败。"
如果还不行,请仔细检查一下你的代码是否有别的必须的库你没有引用,
VB中经常有这样的问题。
还有,注意你的代码里COM对象声明和创建代码是否正确。
路径没问题,还没执行到使用路径就报错。officecn(Hotdog) ( ):
还有其他必须的引用吗?是哪个?
代码里COM对象声明和创建代码应该如何写?不如麻烦你也简单试试这个例子,看能不能拷贝文件!
已经引用了