テキストファイルの書き出し

ファイルにデータを書き出してみましょう。

ここでは、

書き出すディレクトリ
テキスト
ファイルの名前

を指定して

指定したディレクトリに指定したファイル名でファイルを書き出します。

  'データの書き出し
    Public Function SaveData(ByVal DirectoryName As String, ByVal SaveText As String, ByVal FileName As String) As Boolean

        'ServerDirectoryがなけばエラーを返す
        If IO.Directory.Exists(DirectoryName) = False Then
            MsgBox(DirectoryPath & "がありません")
            Return False
            Exit Function
        End If

        Dim TextFile As IO.StreamWriter

        TextFile = New IO.StreamWriter(DirectoryName & FileName)
        TextFile.Write(SaveText)
        TextFile.Close()

        Return True

    End Function

使い方としては

Dim DirectoryName as String = "C:\Test"
Dim SaveText as String = "こんにちは、初めてファイルを書き出します。"
Dim FileName as String = "save.txt"

SaveData(DirectoryName,SaveText,FileName)

で

C:\Test\save.txt
に
文字コードがutf-8で
こんにちは、初めてファイルを書き出します。

と書き出します

FormにTextBoxを貼り付けて

Dim SaveText as String=TextBox1.Text.Trim

としてテキストボックスの内容を書き出してもいいでしょう

ここのTrimは

最初と最後の改行と空白を取り除いてくれます