Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

USB-Stick und VBA
#1
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!
[Bild: attachment-190.gif]
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Antworten Top
#2
Hallo Günter,

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

lg
lg Chris
Feedback nicht vergessen.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
Antworten Top
#3
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.
[Bild: attachment-190.gif]
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Antworten Top
#4
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
lg Chris
Feedback nicht vergessen.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
Antworten Top
#5
Hi,

ich habe noch eine schöne Spielerei gefunden :)
http://michael-schwimmer.de/vba068.htm
lg Chris
Feedback nicht vergessen.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
Antworten Top
#6
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!!
[Bild: attachment-190.gif]
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste