从列表框vb.net复制文件和文件夹

Question

I already have the code that will copy over any files listed in a listbox but i just need help on how to adapt it to also copy over directories.

Ex. of Listbox

1. Z:\\Test\\TestFile.exe
2. Z:\\Test\\TestFolder

This is the code i have so far... thank you in advance

For Each item As String In FilesList.Items
    Try
        If IO.File.Exists(item) Then
        My.Computer.FileSystem.CopyFile(item, 
                 FolderChosenText.Text & "\" & IO.Path.GetFileName(item))
        End If
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
Next

Answer 1

You have to use the same logic that you did with files, instead of copying files change it to copy directories. Below is the code:

            If IO.Directory.Exists(item) Then
                My.Computer.FileSystem.CopyDirectory(item,
                FolderChosenText.Text & "\" & IO.Path.GetFileName(item))
            End If

Answer 2

You have to assign the minimum and the maximum value for the progress bar control. For instance: 0 as the minimum and the total number of items you have in your ListBox as the maximum. In a loop the progress bar value is going to increase by one until it reaches its maximum. Below is the code:

            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = FilesList.Items.Count - 1

            For i = 0 To FilesList.Items.Count - 1
                ProgressBar1.Value = i
            Next