Вопрос : Архивы текста слияния 2 - доступ отказал?

Может кто-то показать мне дорогу слить 2 архива текста в 1 или в новый архив текста?
I имеет дорогу но получает «доступ после того как оно отказано» пытаясь переименовать один из архивов после слияния с fso FSO.

Dim по мере того как Object
Dim f, f2, архив как fso Object

Set =
Set CreateObject («Scripting.FileSystemObject») f = fso.OpenTextFile («хранит am C:\Progr \ Helios11 \ кредитная карточка утвержденное 7-15-10.txt», 1)
Set f2 = fso.OpenTextFile («хранит am C:\Progr \ Helios11 \ проверять утвержденное 7-15-10.txt»,

Kill " 8)
f2.Write f.ReadAll

fso.MoveFile «C:\Program Files\Helios11\Checking утвержденное 7-15-10.txt», (" fso ")

Set 7-15-10.txt карточки C:\Program Files\Helios11\Credit утвержденное = Nothing
Set f = Nothing
Set архив f2 = Nothing
Set = Nothing

TIA,
Andrew class=

Ответ : Архивы текста слияния 2 - доступ отказал?

Вы можете закрыть TextStreams прежде чем вы можете двинуть архив.

f.Close
f2.Close
fso.MoveFile «C:\Program Files\Helios11\Checking утвержденное 7-15-10.txt», «C:\Program Files\Helios11\newname.txt»