VBA运用CopyFile复制文件某些情况特别慢！求助！

Jocoi

各位大佬好，求助...
       代码如下，我是想要运用宏直接复制文件，  A是源文件路径， B是公司网盘路径， C是本地硬盘路径
       如果从A>C， 复制很快就会完成， 验证了代码应该没有问题。
       但是当我想要把A复制到B，代码改成了>>MyFile.CopyFile A, B     'C
       执行代码之后Excel文件和Windows文件资源管理器会一直转圈圈，无法响应，其他应用都正常。
     （A>B实际文件也很快就复制好了,哪怕当我执行代码之后， 切任务管理器关掉Excel和资源管理器，打开之后发现文件已经复制好了。）

       实际我是有权限可以给公司网盘写文件，我自己复制粘贴去操作也很快就执行好了， 权限应该不是问题...
       可我确实没有办法能够让该代码， 在本地磁盘和网络磁盘里，都是同样的执行速度。。。
       请各位大佬支支招，谢谢
        

1. Sub mynz()
   
2. 
   
3. Dim MyFile As Object
   
4. Dim A As String
   
5. Dim B As String
   
6. Dim C As String
   
7. 
   
8. A = "C:\Users\Desktop\Word1.doc"
   
9. B = "\\shagx02a\Word1.doc"
   
10. C = "C:\Users\zDesktop\归档之后的位置\Word1.doc"
    
11. 'On Error Resume Next
    
12. 
    
13. Set MyFile = CreateObject("Scripting.FileSystemObject")
    
14. 
    
15. MyFile.CopyFile A, C     'B
    
16. 
    
17. Set MyFile = Nothing
    
18. 
    
19. MsgBox "OK!"
    
20. 
    
21. End Sub

复制代码

aman1516

试下 映射网络驱动器 方式

Jocoi

aman1516 发表于 2022-12-12 12:18
试下 映射网络驱动器 方式

感谢您的回复，我刚才试着去添加网络驱动器， 然后执行代码，和原来的效果一样...
文件能复制成功，但是资源管理器，和Excel会一直未响应，直到我用任务管理器把它强制关掉

zpy2

Jocoi 发表于 2022-12-12 14:05
感谢您的回复，我刚才试着去添加网络驱动器， 然后执行代码，和原来的效果一样...
文件能复制成功，但是 ...

建议用ftp或者http服务上传文件。

fzxba

FSO.copyfile  某文件,  某路径, true
FSO的copyfile 方法   是 将 文件 复制 到指定 路径，
这里 A是文件 ，B也是文件，而不是路径，可能是这样 B = "\\shagx02a\"
以上个人看法。