Questione : Lime di testo di fusione 2 - l'accesso ha negato?

Può qualcuno mostrarmi un senso fondere 2 lime di testo in 1 o in una nuova lima di testo? il
I ha un senso ma ottiene “l'accesso negato„ quando prova a cambiare titolo una delle lime dopo la fusione con il fso di FSO.

Dim poichè Object
Dim f, F2, lima come il fso di Object

Set =
Set di CreateObject (“Scripting.FileSystemObject„) f = fso.OpenTextFile (“archiva \ Helios11 del am di C:\Progr \ carta di credito 7-15-10.txt approvato„, 1)
Set F2 = fso.OpenTextFile (“archiva \ Helios11 \ controllare del am di C:\Progr 7-15-10.txt approvato„, 8)
f2. Scrivere il

Kill del " di f.ReadAll

fso.MoveFile “C:\Program Files\Helios11\Checking ha approvato 7-15-10.txt„, (" la carta di C:\Program Files\Helios11\Credit ha approvato il fso = Nothing

Set di 7-15-10.txt />Set f = Nothing
Set lima di Nothing
Set = Nothing

TIA,
Andrew class= del

Risposta : Lime di testo di fusione 2 - l'accesso ha negato?

Potete avere bisogno di di chiudere il TextStreams prima che possiate spostare la lima.

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