2020年5月24日 星期日

vb.net 如果不存在使用Output 如果存在使用Append [Output or Append Text] 


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
Imports System.IO

    Dim strFileName As String = strPath & "\Lista.txt"

    Private Sub Output2txt(strList As String)
        Dim sw As StreamWriter
        Dim fs As FileStream
        If File.Exists(strFileName) = False Then
            fs = New FileStream(strFileName, FileMode.Create)
            sw = New StreamWriter(fs, System.Text.Encoding.Default)
            sw.Write(strList)
            sw.Close()
        Else
            fs = New FileStream(strFileName, FileMode.Append)
            sw = New StreamWriter(fs, System.Text.Encoding.Default)
            sw.WriteLine(vbCrLf)
            sw.WriteLine(strList)
            sw.Close()
        End If
    End Sub
於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)