VB.NETでファイルをコピーする方法をいくつか紹介します。
ファイルの存在チェックをする方法
ここでは、VB.NETでファイルの存在チェックをする方法を紹介します。
VB.NETでファイルの存在チェックをするには、Existsメソッドを使います。
＜サンプル＞
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim chk As Boolean
chk = System.IO.File.Exists(TextBox1.Text)
If chk = True Then
MsgBox(“存在します。”)
Else
MsgBox(“存在しません。”)
End If
End Sub
End Class
「System.IO.File.Exists(TextBox1.Text)」でテキストボックス１に入力したファイルが存在するかチェックしています。存在する場合はtrue、存在しない場合はfalseを返します。
ファイルをコピー・切り取り（移動）する方法
ここでは、VB.NETでファイルをコピー・切り取り（移動）する方法を紹介します。
VB.NETでファイルをコピーするには、COPYメソッド、切り取りするにはMOVEメソッドを使います。
＜サンプル＞
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
System.IO.File.Copy(“C:\wk\test1.xlsx”, “C:\wk\test2.xlsx”)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
System.IO.File.Delete(“C:\wk\test2.xlsx”)
End Sub
End Class
「System.IO.File.Copy(“C:\wk\test1.xlsx”, “C:\wk\test2.xlsx”)」でtest1.xlsxファイルをコピーして、test2.xlsxを作っています。
切り取りする場合には、MOVEを使います。
年月日付きでファイルをコピーする方法
ここでは、VB.NETで年月日付きでファイルをコピーする方法を紹介します。
VB.NETで年月日付きでファイルをコピーするには、COPYメソッドを使います。
＜サンプル＞
Public Class Form1
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim d = DateTime.Now
System.IO.File.Copy(“C:\wk\test.xlsx”, “C:\wk\test” & d.Year & d.Month.ToString(“00”) & d.Day.ToString(“00”) & “.xlsx”)
End Sub
End Class
「Dim d = DateTime.Now」で現在の日付を取得しています。
「System.IO.File.Copy(“C:\wk\test.xlsx”, “C:\wk\test” & d.Year & d.Month.ToString(“00”) & d.Day.ToString(“00”) & “.xlsx”)」でファイルをコピーしています。
ファイル名に「& d.Year & d.Month.ToString(“00”) & d.Day.ToString(“00”)」を付与することで年月日が付与されたファイルが作成できます。結果は2018年1月2日なら「test20180102.xlsx」と言うエクセルファイルが作成されます。
日付時刻付きでファイルをコピーする方法
ここでは、VB.NETで日付時刻付きでファイルをコピーする方法を紹介します。
VB.NETで日付時刻付きでファイルをコピーするには、COPYメソッドを使います。
＜サンプル＞
Public Class Form1
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim d = DateTime.Now
System.IO.File.Copy(“C:\wk\test.xlsx”,
“C:\wk\test” & d.Year & d.Month.ToString(“00”) & d.Day.ToString(“00”) & d.Hour.ToString(“00”) & d.Minute.ToString(“00”) & d.Second.ToString(“00”) & “.xlsx”)
End Sub
End Class
この例では、「Dim d = DateTime.Now」で現在の日付時刻を取得しています。
「System.IO.File.Copy(“C:\wk\test.xlsx”,
“C:\wk\test” & d.Year & d.Month.ToString(“00”) & d.Day.ToString(“00”) & d.Hour.ToString(“00”) & d.Minute.ToString(“00”) & d.Second.ToString(“00”) & “.xlsx”)」でファイルをコピーしています。
ファイルコピーの際、年、月、日、時、分、秒の値をそれぞれ取得しファイル名に連結しています。
連番付きでファイルをコピーする方法
ここでは、VB.NETで連番付きでファイルをコピーする方法を紹介します。
VB.NETで連番付きでファイルをコピーするには、COPYメソッドを使います。
＜サンプル＞
Public Class Form1
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
For i = 1 To 3
System.IO.File.Copy(“C:\wk\test.xlsx”, “C:\wk\test” & i.ToString & “.xlsx”)
Next
End Sub
End Class
この例では、「For i = 1 To 3」でiが1から3までの間ファイルコピーを繰り返しています。「System.IO.File.Copy(“C:\wk\test.xlsx”, “C:\wk\test” & i.ToString & “.xlsx”)」でファイル名に１～３のついたファイルを作成しています。
例えば、ファイルの連番を100から始めたい場合は、i=100とすれば100から始めることもできます。その場合はTOの後ろ、終了の条件も変更する必要があります。