VB.net バックグラウンド処理でのファイルアップロードについて

Question

いつもお世話になっております。
今回の質問ですが、バックグラウンド処理でのファイルアップロードについてです。
ファイルをアップロードすることはできたのですが、アップロード状況をリストボックスに表示さることができません。
また、BackgroundWorker1.ReportProgressで試してみたのですが、数値のみしか受け付けてくれません。ファイル名を表示させるには、どのようにしたらいいですか？ご教授お願いします。

コード

Public NotInherit Class F_FileUploade
#Region "変数宣言"
    Private m_strBtnchange As String = "no"
    Private m_folder As New FolderBrowserDialog
    Private m_folder2 As New FolderBrowserDialog
#End Region
#Region "ボタンイベント"

    ''' <summary>
    ''' アップロード開始
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
        If m_strBtnchange = "ok" Then
            btn1.Text = "再開"
            m_strBtnchange = "no"
            '処理が実行中か？
            If BackgroundWorker1.IsBusy Then
                'キャンセル
                BackgroundWorker1.CancelAsync()
            End If
        ElseIf m_strBtnchange = "no" Then
            btn1.Text = "中断"
            m_strBtnchange = "ok"
            txt3.Text = "http : //localhost・・・"
            txt6.Text = "Folder1"
            txt5.Text = "Folder2"
            BackgroundWorker1.WorkerReportsProgress = True
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub
    ''' <summary>
    ''' フォルダの表示
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
        'FolderBrowserDialogクラスのインスタンスを作成
        '上部に表示する説明テキストを指定する
        m_folder.Description = "フォルダを指定してください。"
        'ルートフォルダを指定する
        'デフォルトでDesktop
        m_folder.RootFolder = Environment.SpecialFolder.Desktop
        '最初に選択するフォルダを指定する
        'RootFolder以下にあるフォルダである必要がある
        m_folder.SelectedPath = "C:\Windows"
        'ユーザーが新しいフォルダを作成できるようにする
        'デフォルトでTrue
        m_folder.ShowNewFolderButton = True
        'ダイアログを表示する
        If m_folder.ShowDialog(Me) = DialogResult.OK Then
            For Each foundFile As String In My.Computer.FileSystem.GetFiles(m_folder.SelectedPath, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
                Dim folderPath As String = IO.Path.GetDirectoryName(foundFile)
                txt1.Text = folderPath
                Dim fileName As String = IO.Path.GetFileName(foundFile)
                ListBox1.Items.Add(fileName)
            Next
        End If
    End Sub
#End Region
#Region "Background"
    Dim f As Integer
    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Try
            For Each foundFile As String In My.Computer.FileSystem.GetFiles(m_folder.SelectedPath, FileIO.SearchOption.SearchAllSubDirectories, "*.*")

                My.Computer.Network.UploadFile(foundFile, "http://localhost/")
                My.Computer.Network.UploadFile(foundFile, "http://localhost")

                Dim fileName As String = IO.Path.GetFileName(foundFile)



                BackgroundWorker1.ReportProgress(f)


                'BackgroundWorker1.ReportProgress(foundFile)

            Next

        Catch ex As System.IO.FileNotFoundException
            MessageBox.Show("アップロード対象のファイルが1件もありません。", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
            btn1.Text = "アップロード開始"
            m_strBtnchange = "no"
            ListBox1.Items.Clear()
            txt1.Text = ""
            m_folder.SelectedPath = ""
            txt3.Text = ""
            txt6.Text = ""
            txt5.Text = ""
        Catch ex As System.ArgumentNullException
            MessageBox.Show("有効なフォルダではありません。", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
            m_strBtnchange = "no"
            ListBox1.Items.Clear()
            txt1.Text = ""
            m_folder.SelectedPath = ""
            txt3.Text = ""
            txt6.Text = ""
            txt5.Text = ""
        Catch ex As System.ArgumentException 
            MessageBox.Show("有効なフォルダではありません。", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
            m_strBtnchange = "no"
        End Try
   End Sub



    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        MessageBox.Show("処理が完了しました。")
        btn1.Text = "アップロード開始"
        m_strBtnchange = "no"
    End Sub


#End Region
End Class

Comments

[退会済みユーザー]

ソースコードはインデントが崩れて読みにくくなるので、コードの挿入（<code>のアイコン）で記入してください。あと、回答貰って解決してるのにクローズしてない質問が多すぎるので対応してください。回答してもまともに対応しないなら、回答する気にならないです。

[jack]

申し訳ございません。かしこまりました。

Answer 1

ReportProgress呼び出し時に ProgressChanged イベント が発生すると思うので、そこで更新してはどうでしょう？ReportProgressのuserStateで任意のオブジェクトをProgressChanged イベントに渡せますので、それを使用して表示させるファイル名を受け渡しすればよいのではないかと。

ReportProgress(Int32, Object)

Comments

[jack]

ご回答ありがとうございます。 ProgressChanged イベント を試してみたのですが、ファイル名をどのように持っていくのかがわかりません。引数にintengerのみとされて、string型をもっていけません。何度もすいません。よろしくお願いします。

[退会済みユーザー]

リンク先の説明は読みました？何をやるにしても、まず公式のドキュメントを読むのは基本です。

[jack]

無事できました！！ありがとうございます。これからは、公式の見解をしっかりと読もうと思います。