Frage : Textdateien des Mischens 2 - Zugang verweigerte?

Kann jemand mir eine Weise zeigen, 2 Textdateien in 1 oder in eine neue Textdatei zu vermischen?
I haben, eine Weise aber erhalten „Zugang verweigert“ beim Versuchen, eine der Akten nach dem Mischen mit FSO.

Dim fso umzubenennen da Object
Dim f, F2, Akte als Object

Set fso = CreateObject („Scripting.FileSystemObject“)
Set f = fso.OpenTextFile („C:\Progr am archiviert \ Helios11 \ Kreditkarte genehmigtes 7-15-10.txt“, 1)
Set F2 = fso.OpenTextFile („C:\Progr am archiviert \ Helios11 \ Prüfung von anerkanntem 7-15-10.txt“, 8)
f2. f.ReadAll

fso.MoveFile „C:\Program Files\Helios11\Checking schreiben genehmigte 7-15-10.txt“, „C:\Program Files\Helios11\newname.txt "

Kill („C:\Program Files\Helios11\Credit-Karte genehmigte 7-15-10.txt ")

Set fso = Nothing
Set f = Nothing
Set F2-= Nothing
Set Akte = Nothing

TIA,
Andrew

Antwort : Textdateien des Mischens 2 - Zugang verweigerte?

Sie können das TextStreams schließen müssen, bevor Sie die Akte verschieben können.

f.Close
F2. Abschluss
fso.MoveFile „C:\Program Files\Helios11\Checking genehmigte 7-15-10.txt“, „C:\Program Files\Helios11\newname.txt“