Hi All !

I want to write some text line to a existing text-file. When I use input# function old information is deleted.

Many Thanks.

Hi

You can try opening the file using append

Open "c:\Windows\Temp\Sample.txt" For Append As 1

           Print #1 , "My Text"

Close #1

also you can try File System Object also


Sub Append_Text_Files()

Dim oFS As FileSystemObject

Dim oTS As TextStream

Dim vTemp

Set oFS = New FileSystemObject


For i1 = 1 To 30

Set oTS1 = oFS.OpenTextFile("c:\CombinedTemp.txt", ForAppending, True)
oTS1.Write (i1)

Next i1

End Sub

([url]http://vbadud.blogspot.com/2007/12/combining-text-files-using-vba.html)

Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Hi Shasur
Great! Thanks alot.

Best whishes.
Hoang.