Lisabon
|
 Posted: Wed Nov 15, 2017 19:51 Post subject: |
 |
|
Обновил скрипт и подправил, получил вот такое:
| 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) : C = 0 : If Left(Fi, 1) = "\" Then C = 2
If FP = Fi Then Buff = FMem : FMem = "" Else _
.Open Fi, C : .Read Buff, Dic.Item(Fi) : .Close
With CreateObject("SAPI.SpFileStream")
.Open FP, 1 : .Seek Fl.Size : .Write Buff : Buff = "" : .Close
End With
Next
End With |
Теперь ошибка вот такая:
| Code: | Сценарий: D:\Program\Total_Commander\Scripts\JoinBinFiles.vbs
Строка: 73
Символ: 5
Ошибка: 0x80045025
Код: 80045025
Источник: (null) |
Но теперь есть прогресс в лучшую сторону. Создаваемый (объединённый) файл теперь не пустой, а теперь в него копируется содержимое, только одного файла (первого) из трёх.
Кнопка у меня вот такая:
| Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Scripts\JoinBinFiles.vbs
%WL "%P" 2 %N
C:\Windows\System32\WScript.exe,2
JoinBinFiles
-1
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
