Cita:
Iniciado por ppr 
Muchas me funciona de maravilla
aqui dejo una parte de algo que ojala sirva
Function Buscar_Carpeta(ByVal Titulo As String, ByVal Path_Inicial As Object) As String
Dim objShell As Object
Dim objFolder As Object
Dim o_Carpeta As Object
' Nuevo objeto Shell.Application
objShell = CreateObject("Shell.Application")
On Error Resume Next
'Abre el cuadro de diálogo para seleccionar
objFolder = objShell.BrowseForFolder( _
0, _
Titulo, _
0, _
Path_Inicial)
objFolder = objShell.BrowseForFolder(0, Titulo, 0, Path_Inicial)
' Devuelve solo el nombre de carpeta
o_Carpeta = objFolder.Self
' Devuelve la ruta completa seleccionada en el diálogo
Buscar_Carpeta = o_Carpeta.Path
Exit Function
End Function
aqui adjuntar el archivo y lo cpas a la carpeta que deseas
Dim myOpen As New OpenFileDialog()
Dim myArchivo As String
myOpen.ShowDialog()
myArchivo = myOpen.FileName
Label15.Text = Path.GetFileName(myArchivo)
Label1.Text = ""
Dim Dir As String
' Le pasa la leyenda del cuadro de iálogo y el path inicial
Dir = Buscar_Carpeta(" ... Seleccione una carpeta ", 0)
System.IO.File.Copy(myArchivo, Dir)