VB.NET　ファイルの保存

Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift-JIS")

Dim fileName As String = "C:\test.txt"
Dim streamWriter As IO.StreamWriter = New IO.StreamWriter(fileName, encoding)
streamWriter.AutoFlush = True

Dim inStream As System.IO.Stream = ...        'INストリーム

Dim streamReader As New System.IO.StreamReader(inStream, encoding)
'テキストの場合、内容を一行ずつ読み込み保存
While streamReader.Peek() > -1
    streamWriter.Write(streamReader.ReadLine())    '読み込み保存
End While

streamWriter.Close()

Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift-JIS")
Dim fileName As String = "C:\test.txt"
Dim streamWriter As IO.StreamWriter = New IO.StreamWriter(fileName, encoding)
streamWriter.AutoFlush = True

streamWriter.Write("テキスト・・・")
streamWriter.Close()

'<asp:FileUpload id="csvFile" runat="server" />
'アップロードされたファイルを取得
Dim posted As HttpPostedFile = Request.Files.Get("csvFile")

'ファイル情報を取得
Dim fileInfo As IO.FileInfo = New IO.FileInfo(posted.FileName)

'指定するフォルダに保存
posted.SaveAs("c:\" & fileInfo.Name)