Appending a file
I don't see
oTS1.close
after the loop
And I don't see
oTS.close inside the loop--after you've done the .readall
Bythsx-Addagio wrote:
Hello,
I have the following code to combine the contents of all the text files in
one folder, into one single text file.
The problem is, I get an error 70 Permisson denied on the second time I try
to open the CombindedFile. I don't beleive the file is actually being
opened, but do I need to close it or deactivate it after the first write?
Thanks!
Sub Append_Txt()
Dim oFS As FileSystemObject
Dim oFS1 As FileSystemObject
Dim oTS As TextStream
Dim oTS1 As TextStream
Dim vTemp
Dim Directory As String
'*************
Directory = "C:\New Folder\"
ChDir Directory
Set oFS = New FileSystemObject
Set oFS1 = New FileSystemObject
f = Dir(Directory, 7)
Do While f < ""
Set oTS = oFS.OpenTextFile(Directory & f, ForReading)
vTemp = oTS.ReadAll
Set oTS1 = oFS.OpenTextFile("C:\CombinedTemp.txt", ForAppending, True)
oTS1.Write (vTemp)
f = Dir
Loop
End Sub
--
Dave Peterson
|