Cuestión : ¿Archivos de texto de la fusión 2 - el acceso negó?

¿Puede alguien demostrarme una manera de combinar 2 archivos de texto en 1 o en un nuevo archivo de texto? el
I tiene una manera pero consigue el “acceso negado” al intentar retitular uno de los archivos después de la fusión con fso de FSO.

Dim pues Object
Dim f, F2, archivo como el fso =
Set de Object

Set de CreateObject (“Scripting.FileSystemObject”) f = fso.OpenTextFile (“archiva \ Helios11 \ 7-15-10.txt aprobado de la tarjeta de crédito del am de C:\Progr”, 1)
Set F2 = fso.OpenTextFile (“archiva \ Helios11 \ comprobación del am de C:\Progr de 7-15-10.txt aprobado”, 8)
f2. Escribir f.ReadAll

fso.MoveFile “C:\Program Files\Helios11\Checking aprobó 7-15-10.txt”, el “ "

Kill de C:\Program Files\Helios11\newname.txt (la “tarjeta de C:\Program Files\Helios11\Credit aprobó fso = Nothing

Set de 7-15-10.txt />Set f = Nothing
Set archivo del F2 = de Nothing
Set = Nothing

TIA,
Andrew class= del

Respuesta : ¿Archivos de texto de la fusión 2 - el acceso negó?

Usted puede necesitar cerrar el TextStreams antes de que usted pueda mover el archivo.

f.Close
F2. Cierre
fso.MoveFile “C:\Program Files\Helios11\Checking aprobó 7-15-10.txt”, “C:\Program Files\Helios11\newname.txt”