Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
'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) Next Close #f FreeFile f
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.