Jump to content
emausofia

[Resolvido] Ajuda com pendrive

Recommended Posts

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.

 

 

Share this post


Link to post
Share on other sites
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


"A paciência é uma das coisas que se aprendeu na era do 48k" O respeito é como a escrita de código, uma vez perdido, dificilmente se retoma o habito"

Share this post


Link to post
Share on other sites
emausofia

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

Cordeais cumprimentos,

Emanuel

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.