prague12

'-----------------------sw_p2是一個寫入器 寫入的特性是寫在檔案p2附加的後面行
Dim p2_new As New IO.FileInfo("c:\HCG\\p2.csv")
Dim sw_p2 As IO.StreamWriter = p2_new.AppendText

sw_c1.WriteLine(sss_c1)
sw_c1.Flush()

sss_c1 = ""


Dim view_c1 As New IO.StreamReader("c:\HCG\c1.csv")
TextBoxC1.Text = view_c1.ReadToEnd
view_c1.Close()





'-----------------------------
2010.0928 更新範例:
 '------寫出檔案------

        '先檢查目錄是否存在
        If My.Computer.FileSystem.DirectoryExists("xy_wdata") Then
            'MsgBox("目錄 c:\test 存在")
        Else
            '不存在就建立
            My.Computer.FileSystem.CreateDirectory("xy_wdata")
            'MsgBox("目錄 c:\test 以建立")
        End If

        Dim w_new As New IO.FileInfo("xy_wdata/imageXY_point.csv")
        Dim wt As IO.StreamWriter = w_new.AppendText
        wt.WriteLine(imagexy_str)
        wt.Flush()
        wt.Close()
        '------/寫出檔案/--------