Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


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!
?mage
Gruß Günter
aus der Messe-, Buch-, Universitäts- und Autostadt Leipzig
Windows 7 32 Bit / Windows 8.1 64 Bit • Excel 2000 / Excel 2003 / Excel 2007 / Excel 2010 - alle 32 Bit
to top
#2
Hallo Günter,

versuche einmal
http://www.ms-office-forum.net/forum/sho...ostcount=1

lg
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
 ?mage

to 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.
?mage
Gruß Günter
aus der Messe-, Buch-, Universitäts- und Autostadt Leipzig
Windows 7 32 Bit / Windows 8.1 64 Bit • Excel 2000 / Excel 2003 / Excel 2007 / Excel 2010 - alle 32 Bit
to 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.
3a2920576572206973742064656e20646120736f206e65756769657269672e
 ?mage

to top
#5
Hi,

ich habe noch eine schöne Spielerei gefunden Smile
http://michael-schwimmer.de/vba068.htm
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
 ?mage

to 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!!
?mage
Gruß Günter
aus der Messe-, Buch-, Universitäts- und Autostadt Leipzig
Windows 7 32 Bit / Windows 8.1 64 Bit • Excel 2000 / Excel 2003 / Excel 2007 / Excel 2010 - alle 32 Bit
to top


Gehe zu:


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