For i as Integer = 0 To List.Items.Count - 1

Dim CSVWriter As New StreamWriter(Application.StartupPath & "\" & "파일명.csv")
'Application.StartupPath는 프로그램을 실행시킨 폴더 경로를 가져온다.
CSVWriter.Write(List.Items(i).ToString & ", " & ", ")
CSVWriter.WriteLine()
CSVWriter.Close()

Next i

 

복사했습니다!