Question : Dossiers des textes de la fusion 2 - l'accès a nié ?

Est-ce que quelqu'un peut me montrer une manière de fusionner 2 dossiers des textes dans 1 ou dans un nouveau dossier des textes ? le
I ont une manière mais obtiennent le « accès nié » en essayant de retitrer un des dossiers après la fusion avec le fso de FSO.

Dim car Object
Dim f, F2, dossier comme fso d'Object

Set =
Set de CreateObject (« Scripting.FileSystemObject ») f = fso.OpenTextFile (« classe de am de C:\Progr \ Helios11 \ 7-15-10.txt approuvé par la carte de crédit », 1)
Set F2 = fso.OpenTextFile (« classe de am de C:\Progr \ Helios11 \ vérification de 7-15-10.txt approuvé », 8)
f2. Écrire le

Kill de " de f.ReadAll

fso.MoveFile « C:\Program Files\Helios11\Checking a approuvé 7-15-10.txt », (" la carte de C:\Program Files\Helios11\Credit a approuvé le fso = le Nothing
Set du ")

Set de 7-15-10.txt f = Nothing
Set dossier de F2 = de Nothing
Set = Nothing

TIA,
Andrew class= de

Réponse : Dossiers des textes de la fusion 2 - l'accès a nié ?

Vous pouvez devoir clôturer le TextStreams avant que vous puissiez déplacer le dossier.

f.Close
F2. Fin
fso.MoveFile « C:\Program Files\Helios11\Checking a approuvé 7-15-10.txt », « C:\Program Files\Helios11\newname.txt »