visual-studio-2010 - Visual Basic 2010 で Directory.GetFiles と File.Copy を使用してディレクトリと構造をコピーする

Question

いくつかのdocファイルをコピーして、dir構造も作成しようとしているこのコードを取得しました。

Private Sub btn_CopiarFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_CopiarFiles.Click Dim itemChecked As Object Const quote As String = """"

    For Each itemChecked In chklist_extensiones.CheckedItems


        For Each archivo In Directory.GetFiles("C:\TestDirectory1", itemChecked.ToString(), SearchOption.AllDirectories)

            If File.Exists(archivo) Then
                Dim InfoArchivo As FileInfo = My.Computer.FileSystem.GetFileInfo(archivo)
                Dim InfoDirectorio As DirectoryInfo = InfoArchivo.Directory


                File.Copy(archivo, _
                Path.Combine("C:\TestDirectory2\" + Path.GetFileName(InfoDirectorio.FullName) + "\", Path.GetFileName(archivo)), True)
            End If
        Next

    Next      


End Sub

問題は、コピー元ではなく、 C:\TestDirectory1\document.docto C:\TestDirectory2\document.doc C:\TestDirectory1\doc1\document1.docto C:\TestDirectory2\doc1\document1.doc C:\TestDirectory1\doc1\doc2\document2.doctoということです。C:\TestDirectory2\doc1\doc2\document2.doc

C:\TestDirectory1\document.docこの方法でディレクトリをコピーして作成 C:\TestDirectory2\TestDirectory1\document.doc C:\TestDirectory1\doc1\document1.docしC:\TestDirectory2\doc1\document1.doc C:\TestDirectory1\doc1\doc2\document2.docていますC:\TestDirectory2\doc2\document2.doc

修正は簡単だと確信していますが、実際にはわかりません...

私のコードの問題は何ですか？

ありがとう