Путь не найден после копирования файлов - PullRequest
1 голос
/ 25 марта 2019

Список и целевой путь передаются в процедуру. Список содержит исходные пути файлов, которые будут скопированы. Цикл 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 после функции copyfile, а затем я получаю следующее сообщение.

Сообщение: Источник: «Ошибка времени выполнения в Microsoft VBScript» Строка: 440 Char: 2 Ошибка: 0 'Путь не найден.' -v

Значения для строки и символа не совпадают. Процедура начинается в строке 414 и заканчивается в 433.

Скрипт вызывается через нашу систему PDM. Я не думаю, что это система PDM, потому что другие скрипты работают нормально.

Это вывод функции copyfile для всех файлов в списке:

objFSO.CopyFile S: ************** \ 8-30061 \ 8-30061-0369.DXF, C: \ Users ******* \ Рабочий стол \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S: ************** \ 8-28091 \ 8-28091-1431.DXF, C: \ Users ******* \ Рабочий стол \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S: ************** \ 8-12141 \ 8-12141-6853.DXF, C: \ Users ******* \ Рабочий стол \ 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 ******* \ Рабочий стол \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S: ************** \ 8-28091 \ 8-28091-1431.PDF, C: \ Users ******* \ Рабочий стол \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S: ************** \ 8-12141 \ 8-12141-6853.PDF, C: \ Users ******* \ Рабочий стол \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S: ************** \ 8-12121 \ 8-12121-0673.XLS, C: \ Users ******* \ Рабочий стол \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

objFSO.CopyFile S: ************** \ 8-30061 \ 8-30061-0369.XLS, C: \ Users ******* \ Рабочий стол \ 8 -12121-0673_Gesamt_DXF-PDF-XLS \

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...