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
↧