Postada em 25/08/2012 14:32 hs
Pessoal, o usuário RACEMAN do fórum em outro site me deu uma luz para o meu problema. Ele mandou o código abaixo, que descobre a unidade:
Private Sub DetectarPen()
Dim FSO As New Scripting.FileSystemObject, drv As Scripting.Drive
List1.Clear
For Each drv In FSO.Drives
If drv.IsReady Then
If drv.DriveType = Removable Then
List1.AddItem drv.DriveLetter & ":"
End If
End If
Next
Set FSO = Nothing
End Sub
Agora porém, surgiram duas novas dúvidas que são:
tentei colocar um else (para avisar quando não houver pendrive) e não consegui. Onde devo fazer esse teste? Tipo: SE List1 vazio, então (mensagem). Já tentei de várias formas e não to conseguindo pois mesmo com o pendrive no lugar fica abrindo a mensagem.
Uma outra dúvida é a seguinte, como usuário novato a gente sempre procura o caminho mais difícil. Como solução para atribuir a letra do pendrive na hora de salvar, pensei em fazer vários bats, cada um pra uma unidade (F, G, H, I, J). Não teria uma forma mais prática? Tipo pegar a letra lá do List1, e só acrescentar ela lá na linha onde aparece o F:/copia. Tem um jeito mais prático de fazer isso?
|
