Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

USB-Stick vorhaden???

Betrifft: USB-Stick vorhaden??? von: Uwe Siebers
Geschrieben am: 31.08.2014 15:20:21

Hallo zusammen,

mit einer Routine prüfe ich, ob ein "berechtigter" USB-Stick angeschlossen wurde. Wenn`s ein falscher ist, gibt`s einen Hinweis. Wie aber schreibe ich diese Routine, das ebenfalls der Text einer MsgBox ausgegeben wird, so kein USB-Stick angeschlossen ist?

Sub Admin_Berechtigung()
Dim objFSO, objLaufwerk, strLaufwerk As String, USB_ID$
Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error GoTo ende
For Each objLaufwerk In objFSO.Drives
If objLaufwerk.IsReady Then
If objLaufwerk.DriveType = "1" Then USB_ID = objLaufwerk.SerialNumber
End If
Next objLaufwerk
If USB_ID = id Then
Zugang
Else
MsgBox "Das Programm wird nicht weiter ausgeführt, da es sich um keinen gültigen USB-Stick  _
handelt.", _
vbCritical, "Job 2015 - Administrator"
End If
ende:
Set objFSO = Nothing
End Sub

Vielen Dank für Eure Hilfe.

Gruß

Uwe

  

Betrifft: AW: USB-Stick vorhaden??? von: Matthias L
Geschrieben am: 31.08.2014 17:05:34

Hallo


Evtl. so ?

If objLaufwerk.SerialNumber<>"" then ...


Gruß Matthias


  

Betrifft: AW: USB-Stick vorhaden??? von: Matthias L
Geschrieben am: 31.08.2014 17:43:15

Hallo

Habs jetzt nochmal mit 2 unterschiedl. Sticks getestet
Die Meldung kommt doch beim falschen Stick und auch wenn kein Stick angeschlossen ist.

Hast Du das denn nicht selbst getestet?
Es funktioniert doch!

Gruß Matthias


  

Betrifft: AW: USB-Stick vorhaden??? von: Uwe Siebers
Geschrieben am: 31.08.2014 18:58:38

Hallo Matthias,

klar habe ich die Routine getestet. Im Prinzip funktioniert diese ja auch prima. Mir geht`s nur darum, das eine Meldung ausgegeben wird, so jemand im Menü, wo dieses Makro eingebunden ist, klickt und sich wundert, das beim Klick eben nix passiert, so kein Stick angesteckt ist.

Vielleicht hast da noch `ne Idee?

Dank Dir schon mal

Uwe


  

Betrifft: aber die Meldung kommt doch! von: Matthias L
Geschrieben am: 31.08.2014 20:09:14

Hallo

Hab ich doch geschrieben, die Meldung kommt doch wenn kein Stick angesteckt ist.

Gruß Matthias