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