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