【VB.NET】フォルダ、ファイルを移動するには？

訪問して頂きありがとうございます。まさふくろーです。

この記事では、フォルダ、ファイルを移動する方法をご紹介します。

フォルダ、ファイルを移動する
- サンプルプログラム
  - フォルダを移動する
  - ファイルを移動する
関連記事

フォルダ、ファイルを移動する

フォルダを移動するには、DirectoryクラスのMoveメソッドを使います。
DirectoryクラスのMoveメソッドの引数には、移動するフォルダのパスと移動先フォルダのパスを指定します。
書式は、以下になります。

IO.Directory.Move(移動元フォルダのパス, 移動先フォルダのパス)

補足

引数に指定した移動先フォルダがすでに存在する場合は、例外IOExceptionが発生します。

ファイルを別のフォルダに移動するには、FileクラスのMoveメソッドを使います。
FileクラスのMoveメソッドの引数には、移動するファイルのパスと移動先のパスを指定します。
書式は、以下になります。

IO.File.Move(移動元ファイルのパス, 移動先ファイルのパス)

補足

引数に指定した移動元ファイルが見つからない場合は、例外FileNotFoundExceptionが発生します。

移動先に指定したファイルがすでに存在する場合は、例外IOExceptionが発生します。

サンプルプログラム

フォルダを移動する

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim FolderName1 As String = TextBox1.Text
        Dim FolderName2 As String = TextBox2.Text

        Try

            IO.Directory.Move(FolderName1, FolderName2)

            Label1.Text = "フォルダを移動しました。"

        Catch ex As IO.IOException

            Label1.Text = "同一フォルダが存在するため、移動できませんでした。"

        End Try

    End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim FolderName1 As String = TextBox1.Text

Dim FolderName2 As String = TextBox2.Text

Try

IO.Directory.Move(FolderName1, FolderName2)

Label1.Text = "フォルダを移動しました。"

Catch ex As IO.IOException

Label1.Text = "同一フォルダが存在するため、移動できませんでした。"

End Try

End Sub

End Class

2	「フォルダを移動する」ボタンクリック時に以下処理を行う。
4	移動元のテキストボックスに入力した値を、文字列型の変数「FolderName1」に代入。
5	移動先のテキストボックスに入力した値を、文字列型の変数「FolderName2」に代入。
9	フォルダを移動する。
11	正常にフォルダが移動できたら、文字列「フォルダを移動しました。」をラベルに表示する。
13	移動先にすでに同一フォルダが存在した場合は、
15	文字列「同一フォルダが存在するため、移動できませんでした。」をラベルに表示する。

ファイルを移動する

Public Class Form1
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim FileName1 As String = TextBox1.Text
        Dim FileName2 As String = TextBox2.Text

        Try

            IO.File.Move(FileName1, FileName2)

            Label1.Text = "ファイルを移動しました。"

        Catch ex As IO.FileNotFoundException

            Label1.Text = "移動元のファイルが見つかりませんでした。"

        Catch ex As IO.IOException

            Label1.Text = "移動先に指定したファイルがすでに存在します。"

        End Try

    End Sub
End Class

Public Class Form1

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim FileName1 As String = TextBox1.Text

Dim FileName2 As String = TextBox2.Text

Try

IO.File.Move(FileName1, FileName2)

Label1.Text = "ファイルを移動しました。"

Catch ex As IO.FileNotFoundException

Label1.Text = "移動元のファイルが見つかりませんでした。"

Catch ex As IO.IOException

Label1.Text = "移動先に指定したファイルがすでに存在します。"

End Try

End Sub

End Class

2	「ファイルを移動する」ボタンクリック時に以下処理を行う。
4	移動元のテキストボックスに入力した値を、文字列型の変数「FileName1」に代入。
5	移動先のテキストボックスに入力した値を、文字列型の変数「FileName2」に代入。
9	ファイルを移動する。
11	正常にファイルが移動できたら、文字列「ファイルを移動しました。」をラベルに表示する。
13	移動元のファイルが存在しなかった場合は、
15	文字列「移動元のファイルが見つかりませんでした。」をラベルに表示する。
17	移動先にすでに同一ファイルが存在した場合は、
19	文字列「移動先に指定したファイルがすでに存在します。」をラベルに表示する。