回答: 记得加分哦，两个按钮，先发Merge见内 由 zwl007 于 2012-05-29 14:52

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim csvFile As String = "c:Test.csv"
        Dim outFile As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(csvFile, False) www.6park.com
        For i As Integer = 0 To ListBox3.Items.Count - 1
            outFile.WriteLine(ListBox3.Items.Item(i)) 'outFile.WriteLine("Column 1, Column 2, Column 3") 写入行
        Next www.6park.com
        outFile.Close() www.6park.com
        Console.WriteLine(My.Computer.FileSystem.ReadAllText(csvFile))
    End Sub