重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
我也碰到过这类问题。有解决办法。
员工经过长期磨合与沉淀,具备了协作精神,得以通过团队的力量开发出优质的产品。创新互联坚持“专注、创新、易用”的产品理念,因为“专注所以专业、创新互联网站所以易用所以简单”。公司专注于为企业提供成都网站制作、成都做网站、微信公众号开发、电商网站开发,微信小程序,软件按需求定制网站等一站式互联网企业服务。
点虐 引用Office组件操作时同步需要注意。
你在点虐 端引用的Word application进行了保存动作后关闭了Word对象。
代码运行到下一步(准备复制的代码)时其实可能Word保存并没结束或Word文档对象还没关闭。最好的办法是列出进程列表、确定Word进程(Winword.exe)已经关闭了然后再复制。
这段代码的问题是:
首先for each循环在files里查找文件对象,但是f变量声明为string了,无法让它获取对象;
然后file.copy的变量file没有任何声明,也没有初始化赋值等;
最后,整个for each循环里查找集合files的文件,由于初始化的循环计数器仍然按照最初设定的文件数目向后递增(文件地址),但是实际文件删除一部分,后续的文件位置就不能跟循环计数指针匹配了,所以默认为查找不到文件,将会报错。一般的做法时把复制和删除分别放在2次循环里,第一次只复制文件,第二次才去删除。
用 io.Directory.Exists 判断文件夹是否存在。
再用 My.Computer.FileSystem.CopyDirectory() 复制。
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"