I am using a text box and a cmd button and a list box to add items to a txt file but when it resaves the entries to the txt file it adds quotes on each entry, so if the list was:
entry1
entry2
and I added entry3 the list resaves as
"entry1"
"entry2"
"entry3"
What am I missing?
If txtAdd.Text > "" Then
'add txtAdd's entry to the listbox
LstSites.AddItem txtAdd
'Then resave the listbox to the txt file
fname = App.Path & "\filtered.txt"
Open fname For Output As #1
For N = 0 To LstSites.ListCount - 1
temp = LstSites.List(N)
Write #1, temp
Next N
Close #1
Exit Sub
End If
entry1
entry2
and I added entry3 the list resaves as
"entry1"
"entry2"
"entry3"
What am I missing?
If txtAdd.Text > "" Then
'add txtAdd's entry to the listbox
LstSites.AddItem txtAdd
'Then resave the listbox to the txt file
fname = App.Path & "\filtered.txt"
Open fname For Output As #1
For N = 0 To LstSites.ListCount - 1
temp = LstSites.List(N)
Write #1, temp
Next N
Close #1
Exit Sub
End If