使用VB.NET中的WebClient将子文件夹及其自身的文件复制到另一个文件夹

Question

I'm copying an array of subfolders and array of files of the subfolders, the process is successful, but the files that are copied has no size. the 60 MB file became 0 bytes after being copied to another directory, what could be wrong?

this Is my code:

Dim WithEvents WebCopy As New WebClient

Dim foldersToCopy As New ArrayList()
Dim filesOfSub As New ArrayList()

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    foldersToCopy.Clear()
    filesOfSub.Clear()
    Dim src As String = Form2.TextBox1.Text
    Dim dest As String = Form2.TextBox2.Text

    Dim di As DirectoryInfo = New DirectoryInfo(src)
    Dim dii As DirectoryInfo = New DirectoryInfo(dest)

' this is where I get the subfolders and its files.

    For Each sd In di.GetDirectories
        For Each fi In sd.GetFiles
            If Not Directory.Exists(dest & "\" & sd.Name) And Not File.Exists(dest & "\" & fi.Name) Then
                foldersToCopy.Add(sd.Name)
                filesOfSub.Add(fi.Name)
            End If
        Next
    Next

' this is where I create the subfolders
    For i = 0 To foldersToCopy.Count - 1
        If Not Directory.Exists(dest & "\" & dii.Name) Then
            Directory.CreateDirectory(dest & "\" & foldersToCopy(i))
        End If
    Next

' this is where I copy the files of subfolders
    For i = 0 To filesOfSub.Count - 1
        Dim WebCopy As WebClient = New WebClient

        WebCopy.DownloadFileAsync(New Uri(src & "\" & filesOfSub(i)), dest & "\" & foldersToCopy(i) & "\" & filesOfSub(i))

    Next 
End Sub

Btw, I'm using WebClient for its smooth progress bar and convinient use of handlers.

Answer 1

Thank GOD I have found out the answer!

WebCopy.DownloadFileAsync(New Uri(src & "\" & foldersToCopy(i) & "\" & filesOfSub(i)), dest & "\" & foldersToCopy(i) & "\" & filesOfSub(i))

this should be the correct form of my DownloadFileAsync copier.