USB-Stick vorhaden?
31.08.2014 15:20:21
Uwe
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