Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > USB-Stick und VBA
Normale Version: USB-Stick und VBA
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Glausius

16.03.2015, 16:32
Hallo,

ich habe heute ein ganz spezielles Problem!

Wie kann ich mittels VBA-Code feststellen, ob ein USB-Stick angesteckt ist und welchen Laufwerksbuchstaben dieser zugeteilt bekommen hat?

Für Lösungsvorschläge bzw. entsprechend Code-Schnipsel wäre ich sehr dankbar!

chris-ka

16.03.2015, 16:36
Hallo Günter,

versuche einmal
http://www.ms-office-forum.net/forum/sho...p?p=970133&postcount=1

lg

Glausius

16.03.2015, 16:42
Hallo Chris,

vielen Dank für diesen Link, er bringt mich schon etwas in diese Richtung - muss sehen ob ich damit erreichen kann, was ich brauche.
Vielleicht gibt es noch einen Hinweis zu dem Laufwerksbuchstaben der Anmeldung des USB-Sticks.

chris-ka

16.03.2015, 17:20
Hallo Günter,

hier mal was selbst gebasteltes...

Code:
Sub LW_USB()

Dim LWe As Object
Dim LW As Object
Set LW = CreateObject("Scripting.filesystemobject").Drives
For Each LWe In LW
    If LWe.IsReady = True And LWe.drivetype = 1 Then   '
         MsgBox LWe.Path & " oder nur Buchstabe: " & LWe.driveletter & Chr(10) _
         & "Name: " & LWe.volumename
    End If
Next
End Sub


wenn du den Namen von deinem Stick kennst kannst du auch nach volumenname abfragen.

lg

chris-ka

17.03.2015, 08:23
Hi,

ich habe noch eine schöne Spielerei gefunden :)
http://michael-schwimmer.de/vba068.htm

Glausius

18.03.2015, 20:17
Hallo Chris,

bin erst jetzt dazu gekommen, deine Hinweise zu testen!
Klasse! Es ist alles dabei, was ich brauche - du hast mehr sehr geholfen!
Danke!!
Clever-Excel-Forum > Office-Anwendungen > Excel > USB-Stick und VBA