THank you so much
i have made few changes as per my need and its working:)
Sub WriteToATextFile()
Const FOR_READING = 1
Const FOR_WRITING = 2
Const FOR_APPENDING = 8
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts =...
Thanks for Welcome :)
what i did
i have a user form, one list box and button
my code
Private Sub CommandButton1_Click()
Dim mytext As String
'mytext = text1.Text
Open "c:\myfile.txt" For Append As #1
For i = 1 To ListBox1.ListCount
Write #1, ListBox1.Text
Next
Close #1
End Sub
Private...