Question

将列表和目标路径传递给过程。该列表包含要复制的文件的源路径。 For循环遍历该列表，并将源路径与vbscript函数CopyFile的目标路径一起传递。

Sub CopyFilesToFolder(ByVal fileList, ByVal path)
    Dim objFSO
    Dim tmpItem

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    DBWMsgBox fileList.Count

    For i = 0 To fileList.Count - 1
        tmpItem = fileList.Item(i)
        MsgBox tmpItem & vbCrLf & path
        objFSO.CopyFile tmpItem, path
        MsgBox "Stop1"
    Next

    Set objFSO = Nothing
End Sub

它适用于所有元素，但对于最后一个元素，我会收到一条消息，提示找不到路径。复制所有文件。复制文件功能后的msgbox起作用，然后出现以下消息。

消息：来源：“ Microsoft VBScript中的运行时错误”行：440字符： 2错误：0'未找到路径。 -v

该行和char的值不匹配。该过程开始于414行，结束于433。

通过我们的PDM系统调用脚本。我认为这不是PDM系统，因为其他脚本可以正常工作。

这是列表中所有文件的copyfile函数的输出：

objFSO.CopyFile S：************** \ 8-30061 \ 8-30061-0369.DXF，C：\ Users ******* \ Desktop \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S：************** \ 8-28091 \ 8-28091-1431.DXF，C：\ Users ******* \ Desktop \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S：************** \ 8-12141 \ 8-12141-6853.DXF，C：\ Users ******* \ Desktop \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile s：************** \ 8-12121 \ 8-12121-0673.PDF，C：\ Users ******* \ Desktop \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S：************** \ 8-30061 \ 8-30061-0369.PDF，C：\ Users ******* \ Desktop \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S：************** \ 8-28091 \ 8-28091-1431.PDF，C：\ Users ******* \ Desktop \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S：************** \ 8-12141 \ 8-12141-6853.PDF，C：\ Users ******* \ Desktop \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S：************** \ 8-12121 \ 8-12121-0673.XLS，C：\ Users ******* \ Desktop \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S：************** \ 8-30061 \ 8-30061-0369.XLS，C：\ Users ******* \ Desktop \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

在copieng文件之后找不到路径

0 个答案: