的CopyFile Excel VBA中的路径错误

defenition：

  Dim fso As Object, f As Object, ff As Object, f1 As Object 
      Dim new_des As Object 
      Application.ScreenUpdating = False 
      Set fso = CreateObject("Scripting.FileSystemObject") 
      Set f = fso.Getfolder("C:\test\new") 
      Set ff = f.Files 

      For Each f1 In ff...... 

      ....Set new_des = fso.Getfolder("C:\test\new\old" & "\" & f1)..... 

      ......FileCopy f1, new_des....

我已经运行时错误75路径没有找到 '设置new_des .....' 路径是存在的 “F1”是抱着文件

来源

2014-12-04 Saar Bitton

ff是Files集合，在每个f1是一个文件，以便

fso.Getfolder("C:\test\new\old" & "\" & f1)

试图在文件路径上尝试GetFolder，该文件路径无效，因为它需要目录路径。

您需要将完整路径字符串路径为FileCopy。

来源

2014-12-04 11:57:57

我声明new_des作为字符串和： new_des =（ “C：\测试\新\旧”）然后我没有： FileCopy（F & F1），（new_des & F1）

来源

2014-12-04 12:13:20

复制所有文件使用：

fso.CopyFolder "C:\test\new", "C:\test\new\old" 'from new to old

，或者如果你想在你的代码做，使用BuildPath()文件夹与文件串联，GetFileName()拿到f1文件的名称和定义new_des as String保存生成的PA th：

dim new_des as String 
new_des = fso.BuildPath("C:\test\new\old\", fso.GetFileName(f1))

来源

2014-12-04 12:23:25

的CopyFile Excel VBA中的路径错误

回答

相关问题