I would like to save my List1 content into a Text file and save it with a specific name.
The problem i have is that it save the file but the text file content stay empty even if my List1 was populated.
Would you know why based on by below code?
Thanks again for your help.
'Save text file
Dim f%, i%
f = FreeFile
Open "C:\Documents and Settings\All Users\Desktop\New location: " & Format(Now, "yymmddhhmmss") For Output As #f
file_name = "New location: " & Format(Now, "yymmddhhmmss")
For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
Print #f, List1.List(List1.ListIndex)