Copiar ficheiro para pen drive

[emausofia]

Boas amigos,

Sou novato nestas andanças de programação, fiz uma aplicação em vb para gerir uma bd de access, com form, depois de inserir os dados nas cxs de texto, exporta para access os dados, depois disso, adicionei um botão para abrir um documento de word, com indicadores que irá ser preenchido com os dados do form.

Até aqui tudo bem, funciona bem no pc. O meu problema é que não consigo passar para o pendrive, de forma automática.

Vejam tenho estas linhas como caminho para os *.docx,

            Dim ArqModelo As String, NovoDocumento As String

            ArqModelo = "C:\Users\Tesouraria\Desktop\VS\APPI\mala.docx"
            NovoDocumento = "C:\Users\Tesouraria\Desktop\VS\APPI\Mala\mala2.docx"

 

Como poderia substituir o C:\ pela letra do pendrive, sendo que essa letra varia, em função do pc que irei trabalhar.

Desde já o meu obrigado pela ajuda.

[apocsantos]

Boa noite,

 

Imports System.IO
Dim mydrive As DriveInfo
dim driveletter As string

For Each mydrive In DriveInfo.GetDrives
 If mydrive.IsReady Then
   If mydrive.DriveType = IO.DriveType.Removable Then
         driveletter =  mydrive.RootDirectory.FullName
      End If
   End If
Next


Dim ArqModelo As String, NovoDocumento As String

            ArqModelo = "C:\Users\Tesouraria\Desktop\VS\APPI\mala.docx"
            NovoDocumento = driveletter + "mala2.docx" 

Cordiais cumprimentos,

Apocsantos

[emausofia]

Muito obrigado pela sua ajuda, resolveu na perfeição,

Cordeais cumprimentos,

Emanuel