Visual Basic.NET - ACopiar archivos de USB con Visual Basic 2010

Dim dispositivos As DriveInfo[] = DriveInfo.GetDrives()

For Each dispositivo In dispositivos

   If dispositivo.DriveType = DriveType.Removable Then

      Dim ruta As String = dispositivo.Name

      '' Aquí coloca tu código 

   End If

End For

<<

  Sub CopiarArchivos()

        Dim FTP As FtpWebRequest

        Try

            Dim ruta As String

            Dim Nube As String = InputBox("Introduzca la url de destino", "URL", "http://")

            FormPral.txtUrl.Text = Nube

            Dim unidades As DriveInfo() = DriveInfo.GetDrives

            FormPral.txtDrv.Text = ""

            For Each Dispositivo In unidades

                If Dispositivo.DriveType = DriveType.Removable Then

                    ruta = Dispositivo.Name

                    FormPral.txtDrv.Text = FormPral.txtDrv.Text & vbCrLf & ruta & " ------> Unidad detectada" _

                        & vbCrLf

                    FTP.Create(dirFTP)

                End If

            Next

            'Aquí iría la rutina de copiado....

            MsgBox("Procedimiento ejecutado", vbOKOnly, "Copiar USB")

        Catch

            FormPral.etqEstado.Text = "Ha ocurrido un error: " & Err.Description & vbCrLf & "Preparado..."

            Exit Sub

        End Try

    End Sub

>>