uitvragen usb-stick aanwezig of niet

[TBosgraaf]

Is er een mogelijkheid om in vba uit te vragen of er een usb stick is aangesloten?

Groet Taede

 

[Hoornvan]

TBosgraaf,

Bedoel je dit?

Private Sub CommandButton1_Click()
  MsgBox "Zit er een USB stick in het slot?"
End Sub

 

[TBosgraaf]

usb stick aangesloten

Bedankt, maar ik bedoelde eigenlijk meer. Dit heb ik zelf ook wel bedacht. Maar het gaat erom of afhankelijk van de aanwezigheid van die usb stick, er ook data naar toe geschreven moet worden. Hiervoor heb ik dus o.a. de drive letter nodig.

Groet
Taede

 

[Hoornvan]

TBosgraaf,

Dit komt niet in je vraag naar voren.
Je had dit gelijk kunnen vragen.

Het is voor de helpers prettiger als die gelijk weet wat er moet gebeuren.

 

[TBosgraaf]

@wim
sorry

 

[snb]

Sub tst9()
  For Each dr In CreateObject("scripting.filesystemobject").drives
    If dr.drivetype = 1 And dr.driveletter <> "A" Then MsgBox "Drive " & dr.driveletter & Space(4) & dr.Volumename & " is een USB-stick"
  Next
End Sub

 

[Superzeeuw]

Kleine aanpassing op code van snb.
Ik heb het op mijn systeem gedraaid en tref meerdere USB drives aan.
De code verzamelt alle data en plaatst het in 1 keer in een msgbox:

Sub tst9()
  For Each dr In CreateObject("scripting.filesystemobject").drives
    If dr.drivetype = 1 And dr.driveletter <> "A" Then USBTekst = USBTekst & "Drive " & dr.driveletter & Space(4) & dr.sharename & " is een USB-stick" & Chr(10)
  Next
  MsgBox USBTekst
End Sub

 

[snb]

@superzeeuw
in plaats van sharename heb ik in code de volumename opgenomen.

 

[Superzeeuw]

@snb
Ik begrijp niet wat je hiermee bedoelt.

 

[TBosgraaf]

@snb en superzeeuw

Bedankt hiermee kan ik uit de voeten, maar rest nog 1 vraag: waar kan ik deze informatie vandaan halen? is een soort manual met overzichtelijke begrippen hiervoor