都300G了，你要考虑你硬件的读写速度，你用手动复制一次 看系统提示的预估时间大概是多久，你可以创建另外的进程 或者 线程去执行拷贝
顺平网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、APP开发、响应式网站开发等网站项目制作，到程序开发，运营维护。创新互联建站从2013年创立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。
对 Range 对象做 Copy 方法，要注意 Range 要连续的、成矩形选择的。
例如像：A1:C5 可以复制，
例如像：A1:C5, A10:C15 就不能复制。
还要注意一点：对 Range 对象进行操作的话，所在工作表先要激活。
someRange.Worksheet.Activate
如果还有问题的话，可以把对 Excel 操作的代码提取到 Excel VBA 环境下调试好了再移植回去。
用 io.Directory.Exists 判断文件夹是否存在。
再用 My.Computer.FileSystem.CopyDirectory() 复制。
例如，把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"
这段代码的问题是：
首先for each循环在files里查找文件对象，但是f变量声明为string了，无法让它获取对象；
然后file.copy的变量file没有任何声明，也没有初始化赋值等；
最后，整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定的文件数目向后递增（文件地址），但是实际文件删除一部分，后续的文件位置就不能跟循环计数指针匹配了，所以默认为查找不到文件，将会报错。一般的做法时把复制和删除分别放在2次循环里，第一次只复制文件，第二次才去删除。
先把"Form1.vb 的副本"改成"Form2",然后右击“Form2”---查看代码---把类名改成“Form2”就可以了
