Question

这里有什么问题：

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路径找不到＆＃39;设置new_des .....＆＃39; 路径就在那里＆＃34; F1＆＃34;持有文件

Answer 1

ff是Files个集合，每个f1都是一个文件，所以

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

在文件路径上的GetFolder，因为它没有预期的目录路径。

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

Answer 2

我将new_des声明为字符串并且： new_des =（“C：\ test \ new \ old”）然后我做了： FileCopy（f＆amp; f1），（new_des＆amp; f1）

Answer 3

复制所有文件使用：

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

或者如果您想在代码中执行操作，请使用BuildPath()将文件夹与文件GetFileName()连接起来，以获取f1的文件名，并将new_des as String定义为保存生成的路径：

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

copyfile excel vba路径错误

3 个答案: