Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Identificar discos
 
Notifications
Clear all

Identificar discos

 
2024 - VBA & Macros
7 Posts
2 Usuários
0 Reactions
817 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Existe algum código que possa usar para identificar quais discos existem na maquina, inclusive aqueles mapeados da rede? para disponibilizar numa lista de discos disponiveis para salvamento.

Tipo assim : " Escolha o disco para salvamento" e abrir uma cx com os discos possiveis

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/04/2014 6:54 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Os tais discos, seria diretórios?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/04/2014 7:09 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

creio q seriam os drives:

C:
D:

etc...

Aqui tem alguma informação:
http://www.macoratti.net/vbn5_drv.htm

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 29/04/2014 7:47 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

isso discos = drives=hd

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/04/2014 7:48 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Seria isso?

Sub AleVBA_11489()
    Dim Drive As Object, HardDrive$
    For Each Drive In CreateObject("Scripting.FileSystemObject").Drives
          If Drive.DriveType = 2 Then
                HardDrive = Drive
          End If
    Next
    MsgBox HardDrive
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/04/2014 8:01 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Porque só identificou o D: , tenho o C: e estou com 2 pen drives espetados aqui

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/04/2014 8:04 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

tente

Sub AleVBA_11489V2()

    Dim Drive As Object, MyDrives As String
     
    For Each Drive In CreateObject("Scripting.FileSystemObject").Drives
        If Drive.DriveType > 1 Then
            MyDrives = Drive & vbNewLine & MyDrives
        End If
    Next
     
    MsgBox MyDrives
     
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/04/2014 5:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico