VB2015でファイルを移動しようとすると「追加情報:パスへのアクセスは拒否されました。」などのエラーがでる

Question

VB2015でファイルを移動しようとすると以下のエラーが表示されます。

型 'System.UnauthorizedAccessException' のハンドルされていない例外が mscorlib.dll で発生しました

引用テキスト追加情報:パスへのアクセスは拒否されました。

フォルダにアクセス権がないのかと思ってフォルダの「プロパティ」の「セキュリティ」の「グループ名またはユーザー名」で「Everyone」を追加して「フルコントロール」の「許可」にチェックを入れました。それでも「アクセスは拒否されました。」等のエラーが出ます。

フォーム画面とプログラム文は以下になります。

Public Class Form1
  'フォルダ選択ボタン
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Ret As DialogResult

    Me.FolderBrowserDialog1.Description = "フォルダーを選択してください"

    '[新しいフォルダーを作成]ボタンを表示しない
    Me.FolderBrowserDialog1.ShowNewFolderButton = False

    'ダイアログボックスを表示し、[OK]ボタンが選択されたらフォルダーパスをラベルに表示
    Ret = Me.FolderBrowserDialog1.ShowDialog()
    If Ret = DialogResult.OK Then
      Me.TextBox1.Text = Me.FolderBrowserDialog1.SelectedPath()
    Else
      Me.TextBox1.Text = ""
    End If


    'サブフォルダーを取得する
    Dim Dname As String = Me.TextBox1.Text

    If IO.Directory.Exists(dname) = False Then
      MessageBox.Show(dname & "が見つかりません。", "通知")
      Exit Sub
    End If

    Me.ListBox1.Items.Clear()
    For Each FName As String In IO.Directory.GetDirectories(Dname)
      Me.ListBox1.Items.Add(FName)
    Next



  End Sub

  '「実行する」ボタン
  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    For Each myList In ListBox1.SelectedItems
      For Each FName As String In IO.Directory.GetFiles(myList)
        '↓この部分でエラーが出る
        IO.File.Move(FName, Me.TextBox1.Text)
      Next

    Next

  End Sub
End Class

このプログラムは「フォルダ選択」ボタンでダイアログを利用してフォルダのパスをTextBox1に入力して、ListBox1にTextBox1のフォルダ内のフォルダ一覧を表示しています。
次に「実行する」ボタンを押すとListBox1の選択しているフォルダの中にあるファイルを全てTextBox1のフォルダへ移動しようとします。しかしここでエラーが発生してしまいます。実際にアクセスが拒否されているのか、プログラム文に問題があるのか（僕はこっちのような気がします）分かりません。

お手数ですがよろしくお願いいたします。

Answer 1

IO.File.Move(FName, Me.TextBox1.Text)

まずは第二引数はフォルダパスではなくファイルパスじゃないといけないのでは。

File.Move メソッド (String, String)

Comments

[tada_tadaa]

回答ありがとうございます。
workaholist様がおっしゃるようにファイルパスにしないといけませんでした。
ファイルパスにしたところ無事に移動できるようになりました。
下記が変更した部分です。

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

For Each myList In ListBox1.SelectedItems
For Each FName As String In IO.Directory.GetFiles(myList)
Dim dp = FName.LastIndexOf("\") '追加した部分
Dim s = FName.Substring(dp) '追加した部分
IO.File.Move(FName, Me.TextBox1.Text + s) '変更した部分
Next

Next
End Sub

単純なミスでした。どうもありがとうございました。