２．ファイルのコピー・移動・削除・ファイル名の変更(32_Fil_02)　(旧、SampleNo.023)

１．File.Copy メソッド を使ってのファイルのコピー ２．FileInfo.MoveTo メソッド を使ってのファイルの移動 ３．FileInfo.MoveTo メソッド を使ってのファイル名の変更 ４．FileInfo.Delete メソッド を使ってのファイルの削除 ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．File.Copy メソッド を使ってのファイルのコピー

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'File.Copy メソッド を使ってのファイルのコピー     'File.Copy メソッド     '既存のファイルを新しいファイルにコピーします。     Dim SourceFile As String = "test.txt"     Dim DestinationFile As String = "test001.txt"     'ファイルを扱う場合ファイルの有無を確認すようにして下さい。     If System.IO.File.Exists(SourceFile) Then         '既に同じ名前のファイルが存在するとエラーとなるのでチェックが必要         If System.IO.File.Exists(DestinationFile) = False Then             '既存のファイルを新しいファイルにコピーします。             '同じ名前のファイルを上書きできません。             System.IO.File.Copy(SourceFile, DestinationFile)             MessageBox.Show("新しいファイルにコピーしました")         End If         'こちらはチェックの必要はありません。         If System.IO.File.Exists(DestinationFile) Then             '同じ名前のファイルの上書きが許可されます。             System.IO.File.Copy(SourceFile, DestinationFile, True)             MessageBox.Show("ファイルの上書きコピーをしました")         End If     End If End Sub

２．FileInfo.MoveTo メソッド を使ってのファイルの移動

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'FileInfo.MoveTo メソッド を使ってのファイルの移動     'FileInfo.MoveTo メソッド     '指定したファイルを新しい場所に移動します。     'オプションで新しいファイル名を指定することもできます。     Dim SourceFile As String = "test001.txt"     Dim DestinationFile As String = "..\..\test001.txt"     Dim fi As New System.IO.FileInfo(SourceFile)     '移動先に同名のファイルが存在しなくて移動するファイルが存在するか確認     If System.IO.File.Exists(DestinationFile) = False And System.IO.File.Exists(SourceFile) Then         'ファイルを移動         fi.MoveTo(DestinationFile)         MessageBox.Show("ファイルを移動しました。")     End If End Sub

３．FileInfo.MoveTo メソッド を使ってのファイル名の変更

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click     '同じフォルダーに違う名前で移動すれば、ファイル名の変更になります。     If System.IO.File.Exists("..\..\test007.txt") = False And System.IO.File.Exists("..\..\test001.txt") Then         'ファイル名の変更         System.IO.File.Move("..\..\test001.txt", "..\..\test007.txt")         MessageBox.Show("ファイル名を変更しました。")     End If End Sub

４．FileInfo.Delete メソッド を使ってのファイルの削除

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'FileInfo.Delete メソッド を使ってのファイルの削除     'FileInfo.Delete メソッド     'ファイルを完全に削除します。     'ファイルが存在しない場合は、このメソッドは何も実行しません     Dim DelFileName As String = "..\..\test007.txt"     'ファイルの有無を確認     If System.IO.File.Exists(DelFileName) Then         'ファイルを削除         Dim fi As New System.IO.FileInfo(DelFileName)         fi.Delete()         MessageBox.Show("..\..\test007.txt ファイルを削除しました。")     End If     DelFileName = "test001.txt"     'ファイルの有無を確認     If System.IO.File.Exists(DelFileName) Then         'ファイルを削除         Dim fi As New System.IO.FileInfo(DelFileName)         fi.Delete()         MessageBox.Show("test001.txt ファイルを削除しました。")     End If     DelFileName = "..\..\test001.txt"     'ファイルの有無を確認     If System.IO.File.Exists(DelFileName) Then         'ファイルを削除         Dim fi As New System.IO.FileInfo(DelFileName)         fi.Delete()         MessageBox.Show("..\..\test001.txt ファイルを削除しました。")     End If End Sub

５．

６．

検索キーワード及びサンプルコードの別名(機能名)