Total Commander :: Как скопировать несколько файлов в один?

Как скопировать несколько файлов в один?

through

[^/[Print]\]
Goto page Previous 1, 2, 3, 4, 5, 6 Next :| |:
Total Commander -> Автоматизация Total Commander

#61: Author: Flasher, Location: Москва

Posted: Fri Sep 08, 2017 17:29
—
Lisabon
ПОпробуй в 73 строке 1 поменять на 2. Если не поможет, то увы и ах.
Также обрати внимание на права записи. На других дисках поведение аналогичное?

#62: Author: Lisabon,

Posted: Fri Sep 08, 2017 18:22
—
Flasher

Quote:

ПОпробуй в 73 строке 1 поменять на 2

Не помогло.

Quote:

обрати внимание на права записи

Проверил на разных дисках, как на несъёмных и USB дисках и проблема проявляется везде. Другие твои скрипты, отрабатывают без проблем в тех же местах диска и запись файлов происходит. Попробовал команду copy на тех же дисках и местах и команда отработала без проблем, запись файла произошла. Бред, короче.

#63: Author: Flasher, Location: Москва

Posted: Fri Sep 08, 2017 18:30
—
Lisabon
А так происходит вообще на любой глубине с любыми файлами? Или есть варианты?

#64: Author: Lisabon,

Posted: Fri Sep 08, 2017 19:13
—
Flasher

Quote:

так происходит вообще на любой глубине с любыми файлами

Пробовал на такую глубину запускать:

Code:

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.

Quote:

есть варианты?

Без вариантов. Появляется ошибка.

#65: Author: Flasher, Location: Москва

Posted: Fri Sep 08, 2017 19:29
—
Lisabon
Так. А файл-то со счётчиком пустой создаётся?

#66: Author: Lisabon,

Posted: Fri Sep 08, 2017 19:53
—

Flasher wrote:

файл-то со счётчиком пустой создаётся?

Да, файл создаётся пустым.

#67: Author: Flasher, Location: Москва

Posted: Fri Sep 08, 2017 20:01
—
Lisabon
А с другими вариантами параметров как?

#68: Author: Lisabon,

Posted: Fri Sep 08, 2017 20:28
—
Flasher
Пробовал разные параметры:

Code:

%WL | %WL /del | %WL "%T" 2 | %WL "%P" 0 %N

ошибка присутствует.
Что ещё... Файл список файлов в %TEMP% создается, при нажатии на кнопку.

#69: Author: Flasher, Location: Москва

Posted: Fri Sep 08, 2017 20:37
—
Lisabon
Странно то, что на точно такой же метод используется ранее дважды, ругани нет. Попробуй в этой строке FP заключить в CStr(FP).

#70: Author: Lisabon,

Posted: Fri Sep 08, 2017 20:57
—
Flasher

Quote:

в этой строке FP заключить в CStr(FP)

Не помогает.

#71: Author: Flasher, Location: Москва

Posted: Fri Sep 08, 2017 21:03
—
Lisabon
Было бы интересно ознакомиться с тестами на 8-ке. Может, кто-то ещё посмотрит. В данном случае без такой системы доп. мыслей пока нет. Я могу взять ADO (нет на WinPE, не такой шустрый) либо copy /b (как тут), если очень надо.
Могу через удалёнку взглянуть, если хочешь.

#72: Author: Lisabon,

Posted: Fri Sep 08, 2017 21:52
—

Quote:

либо copy /b (как тут), если очень надо

Если не затруднит, то сделай.

#73: Author: Nick,

Posted: Fri Oct 20, 2017 12:03
—
Flasher
Этот скрипт при склеивании файлов при параметрах: <%WL "%P" 2 %N> выдает следующую ошибку:

Строка: 74
Символ: 5
Ошибка: Недопустимый вызов или аргумент процедуры
Код: 800A0005
Источник: Ошибка выполнения Microsoft VBScript

Где может быть ошибка?

#74: Author: Flasher, Location: Москва

Posted: Wed Nov 15, 2017 06:04
—
Nick
Написано "Строка: 74." Вот там и ошибка. Smile

Только на 7-ке этого нет, что выше и обсуждалось.
Интересно, что если над ней и под ней добавить по строке?:

Code:

With CreateObject("SAPI.SpFileStream")
<74 строка>
End With

Lisabon, тоже советую проверить.

#75: Author: Lisabon,

Posted: Wed Nov 15, 2017 19:19
—

Quote:

что если над ней и под ней добавить по строке

Тобишь должно получится так? :

Code:

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

Если да, то ошибка:

Code:

Сценарий: D:\Program\Total_Commander\Scripts\JoinBinFiles.vbs
Строка: 75
Символ: 3
Ошибка: Неуместное 'Next'
Код: 800A041F
Источник: Ошибка компиляции Microsoft VBScript

Total Commander -> Автоматизация Total Commander

output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous 1, 2, 3, 4, 5, 6 Next :| |: Page 5 of 6