VB2005ファイル処理

ファイル操作

ファイルの読み込みなしにファイルのコピーを行います。

=== 定石 ===

'コピー先ファイル名が存在するとエラーになります。

IO.File.Copy("コピー元ファイル名", "コピー先ファイル名")

'コピー先ファイル名が存在しても上書きコピーします。

IO.File.Copy("コピー元ファイル名", "コピー先ファイル名", True)

▲上へ

"ファイル名"で指定されたファイルを、TextBox1.Textに読み込みます。

== 定石 ==

Dim flRead As New IO.StreamReader("ファイル名")
TextBox1.Text = flRead.ReadToEnd
flRead.Close()

== 文字化けする場合など ==

Shift-JIS(文字コードを指定)

Dim flRead As New IO.StreamReader("ファイル名", _
System.Text.Encoding.GetEncoding("Shift-JIS"))

UTF8(文字コードを指定)

Dim flRead As New IO.StreamReader("ファイル名", _
System.Text.Encoding.UTF8)

TextBox1の内容を、"ファイル名"で指定した名前で書き込みします。動作は、重複名称(ファイル名)チェックなしで上書きされます。

Dim flWrite As New IO.StreamWriter("ファイル名")
flWrite.WriteLine(TextBox1.Text)
flWrite.Close()

Dim flWrite As New IO.StreamWriter("ファイル名", True)
flWrite.WriteLine(TextBox1.Text)
flWrite.Close()

== 文字コードをShift-JISを指定してファイルを書き込み ==

Dim flWrite As New IO.StreamWriter("ファイル名", false, _
 System.Text.Encoding.GetEncoding("Shift-JIS"))
flWrite.WriteLine(TextBox1.Text)
flWrite.Close()

== 文字コードをUTF8を指定してファイルを書き込み ==

Dim flWrite As New IO.StreamWriter("ファイル名", false, _
 System.Text.Encoding.UTF8)
flWrite.WriteLine(TextBox1.Text)
flWrite.Close()

▲上へ