Страница 5 из 6
Добавлено: Пт сен 08, 2017 16:29
Flasher
Lisabon
ПОпробуй в 73 строке 1 поменять на 2. Если не поможет, то увы и ах.
Также обрати внимание на права записи. На других дисках поведение аналогичное?
Добавлено: Пт сен 08, 2017 17:22
Lisabon
Flasher
ПОпробуй в 73 строке 1 поменять на 2
Не помогло.
обрати внимание на права записи
Проверил на разных дисках, как на несъёмных и USB дисках и проблема проявляется везде. Другие твои скрипты, отрабатывают без проблем в тех же местах диска и запись файлов происходит. Попробовал команду
copy на тех же дисках и местах и команда отработала без проблем, запись файла произошла. Бред, короче.
Добавлено: Пт сен 08, 2017 17:30
Flasher
Lisabon
А так происходит вообще на любой глубине с любыми файлами? Или есть варианты?
Добавлено: Пт сен 08, 2017 18:13
Lisabon
Flasher
так происходит вообще на любой глубине с любыми файлами
Пробовал на такую глубину запускать:
Код: Выделить всё
D:\Install\Other\Don't_Delete\TestScript
H:\FTK_8\Windows\TestScript
G:\LOCALE\TestScript
Объединять пробовал txt, bat, vbs, bar, jpg, amr, mkv
Так же пробовал на разных файловых системах: FAT, FAT32 и NTFS.
есть варианты?
Без вариантов. Появляется ошибка.
Добавлено: Пт сен 08, 2017 18:29
Flasher
Lisabon
Так. А файл-то со счётчиком пустой создаётся?
Добавлено: Пт сен 08, 2017 18:53
Lisabon
Flasher писал(а):файл-то со счётчиком пустой создаётся?
Да, файл создаётся пустым.
Добавлено: Пт сен 08, 2017 19:01
Flasher
Lisabon
А с другими вариантами параметров как?
Добавлено: Пт сен 08, 2017 19:28
Lisabon
Flasher
Пробовал разные параметры:
Код: Выделить всё
%WL | %WL /del | %WL "%T" 2 | %WL "%P" 0 %N
ошибка присутствует.
Что ещё... Файл список файлов в %TEMP% создается, при нажатии на кнопку.
Добавлено: Пт сен 08, 2017 19:37
Flasher
Lisabon
Странно то, что на точно такой же метод используется ранее дважды, ругани нет. Попробуй в этой строке FP заключить в CStr(FP).
Добавлено: Пт сен 08, 2017 19:57
Lisabon
Flasher
в этой строке FP заключить в CStr(FP)
Не помогает.
Добавлено: Пт сен 08, 2017 20:03
Flasher
Lisabon
Было бы интересно ознакомиться с тестами на 8-ке. Может, кто-то ещё посмотрит. В данном случае без такой системы доп. мыслей пока нет. Я могу взять ADO (нет на WinPE, не такой шустрый) либо copy /b (как
тут), если очень надо.
Могу через удалёнку взглянуть, если хочешь.
Добавлено: Пт сен 08, 2017 20:52
Lisabon
либо copy /b (как
тут), если очень надо
Если не затруднит, то сделай.
Добавлено: Пт окт 20, 2017 11:04
Nick
Flasher
Этот скрипт при склеивании файлов при параметрах: <%WL "%P" 2 %N> выдает следующую ошибку:
Строка: 74
Символ: 5
Ошибка: Недопустимый вызов или аргумент процедуры
Код: 800A0005
Источник: Ошибка выполнения Microsoft VBScript
Где может быть ошибка?
Добавлено: Ср ноя 15, 2017 05:04
Flasher
Nick
Написано "Строка: 74." Вот там и ошибка.
Только на 7-ке этого нет, что выше и обсуждалось.
Интересно, что если над ней и под ней добавить по строке?:
Код: Выделить всё
With CreateObject("SAPI.SpFileStream")
<74 строка>
End With
, тоже советую проверить.
Добавлено: Ср ноя 15, 2017 18:19
Lisabon
что если над ней и под ней добавить по строке
Тобишь должно получится так? :
Код: Выделить всё
With CreateObject("SAPI.SpFileStream")
If Dic.Exists(FP) And FP <> List(0) Then _
.Open FP, 2 : .Read FMem, Fl.Size :_
.Close : Fl.OpenAsTextStream(2).Close
For i = N To Num - 1
Fi = List(i) : If FP = Fi Then Buff = FMem : FMem = "" Else _
.Open Fi, 2 : .Read Buff, Dic.Item(Fi) : .Close
.Open FP, 1 : .Seek Fl.Size : .Write Buff : Buff = "" : .Close
With CreateObject("SAPI.SpFileStream")
Next
End With
End With
Если да, то ошибка:
Код: Выделить всё
Сценарий: D:\Program\Total_Commander\Scripts\JoinBinFiles.vbs
Строка: 75
Символ: 3
Ошибка: Неуместное 'Next'
Код: 800A041F
Источник: Ошибка компиляции Microsoft VBScript