Dim strData As String = ""

For i = 0 To ListBox1.Items.Count - 1
strData += ListBox1.Items(i).ToString & vbNewLine
'strData 변수안에 리스트에 담긴 아이템을 추가한다, vbNewLine은 줄바꿈
My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\" & "파일명.txt", strData, False)
'Application.StartupPath는 프로그램을 실행시킨 폴더 경로를 가져온다.
Next i

 

복사했습니다!