Vraag : Fusie 2 tekstdossiers - ontkende toegang?

Kan iemand me een manier om 2 tekstdossiers in 1 of in een nieuw tekstdossier samen te voegen tonen?
I heeft een manier maar krijgt „toegang ontkend“ wanneer het proberen om één van de dossiers na de fusie met fso FSO.

Dim als Object
Dim F, f2, Dossier als fso/>Set van Object

leSystemObject“)
Set F = fso.OpenTextFile („C:\Progr keurde am de Creditcard Helios11 \ van Dossiers \ 7-15-10.txt“, 1) goed
Set f2 = fso.OpenTextFile („C:\Progr am Dossiers \ die Helios11 \ Goedgekeurd 7-15-10.txt“, 8 controleren)
f2. Schrijf f.ReadAll

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

Kill (de „C:\Program Files\Helios11\Credit Kaart keurde 7-15-10.txt goed“) fso

Set = Nothing
Set F = Nothing
Set f2 = van Nothing
Set- Dossier = Nothing

TIA,
Andrew

Antwoord : Fusie 2 tekstdossiers - ontkende toegang?

U kunt TextStreams moeten sluiten alvorens u het dossier kunt bewegen.

f.Close
f2. Sluit
fso.MoveFile „C:\Program Files\Helios11\Checking Goedgekeurd 7-15-10.txt“, „C:\Program Files\Helios11\newname.txt“