Copiar múltiples archivos a directorio VB.Net 2005

[moradazo]

Esto es en Visual Studio .net 2005

Hola amigos que tal.

Necesito saber como copio con un OpenFileDialog los archivos que selecciono a una carpeta X.

El programa que hago es un examinador de fotos en X dirección, selecciona las fotos y las pasa a otro directorio Y. He investigado y solo sale para copiar un archivo a otro lado o un directorio a otro directorio, éste último no me sirve porque tal vez en el directorio origen hayan archivos que no se ocupen.

Tengo este código:

Código VB.Net 2005:

If Directory.Exists(RutaDestinoRecibo) Then
                Dim DlgAbrir As New OpenFileDialog()
                DlgAbrir.Multiselect = True
 
                If (DlgAbrir.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                        For Each rutaorigen In DlgAbrir.FileNames
                       My.Computer.FileSystem.CopyDirectory(rutaorigen, RutaDestinoRecibo, True)
                    Next
                End If
End If
 

Me da un error porque dice que "El directorio C:\directorio\texto.txt no existe", pero si pongo en vez de ese código que puse de copiar directorio, pongo este: "System.IO.File.Copy(rutaorigen, RutaDestinoRecibo, True)" me dice que no encuentra el archivo "C:\directorio\"

Alguien me puede hechar una mano con esto a ver si logro copiar las fotos elegidas en el OpenFileDialog a una carpeta que yo escoja?

Muchas gracias.

PD: Si alguien tiene una mejor idea, me pueden decir también :D

[alexg88]

Buenas,

El problema es que el método File.Copy esperá recibir la ruta de un archivo origen y la ruta de un archivo destino (no de un directorio).

La solución es la siguiente:

Código vb:

If Directory.Exists(RutaDestinoRecibo) Then
                Dim DlgAbrir As New OpenFileDialog()
                DlgAbrir.Multiselect = True
 
                If (DlgAbrir.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                        For Each rutaorigen In DlgAbrir.FileNames
                         System.IO.File.Copy(rutaorigen, System.IO.Path.Combine( RutaDestinoRecibo,System.IO.Path.GetFileName(rutaorigen)), True)
                    Next
                End If
End If
 

[moradazo]

muchas gracias me funcionó correctamente.