Lisabon
|
Posted: Wed Nov 15, 2017 19:19 Post subject: |
|
|
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 |
|
|