vb.net как скопировать файл из одного каталога в другой каталог, создав папку, если эта папка не существует

---

У меня есть некоторые проблемы с копированием файлов из одного каталога в другой каталог путем создания папки, если эта папка не существует в целевом каталоге.
Пример:
У меня есть много файлов в тестовой папке, но я хочу только скопировать их 1.txt
Исходный путь: C:\temp\test\1.txt
путь назначения: C:\Data\

если бы C:\Data\ не содержит папки "temp" или "test", он должен создать эту папку перед тем, как справиться с проблемой. 1.txt-да.

Скопировано в C:\Data\temp\test\1.txt

Ниже приведен мой код. Но это не работает..

Private Sub btnBackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackup.Click
          Dim sourcepath As String = "C:\temp\test\1.txt"
    Dim DestPath As String = "C:\Data\"
    CopyDirectory(sourcepath, DestPath)

End Sub

Private Shared Sub CopyDirectory(sourcePath As String, destPath As String)
    If Not Directory.Exists(destPath) Then
        Directory.CreateDirectory(destPath)
    End If

    For Each file__1 As String In Directory.GetFiles(sourcePath)
        Dim dest As String = Path.Combine(destPath, Path.GetFileName(file__1))
        File.Copy(file__1, dest)
    Next

    For Each folder As String In Directory.GetDirectories(sourcePath)
        Dim dest As String = Path.Combine(destPath, Path.GetFileName(folder))
        CopyDirectory(folder, dest)
    Next
End Sub

---