NULL-Wert bei Variablen

Problem:

Einer Varibalen wird der Wert Null zugewiesen.

 

Lösung:.

Dies ist mit VBS über die Funktion IsNull auswertbar.


Option Explicit

Dim wmi,s , lw

On Error Resume Next
'z.B den Namen des Laufwerks D auslesen
'ist dieser noch nicht vergeben wird NULL zurückgegeben
lw = "e"
Set wmi = GetObject("winmgmts:\\.\root\cimv2:Win32_LogicalDisk.DeviceID='" & lw & '")

If Err.Number > 0 Then
  MsgBox " LW - nicht bereit" & vbCrLf & vbCrLf & "Fehler: " & Err.Number & vbCrLf & "Beschr.: " & Err.Description
  WScript.quit
End If

'Direkt hätte s jetzt den Wert NULL und kann so nicht ausgewertet werden
s = WMI.VolumeName

'if s = Null then msgbox "Kein LW-Name vergeben" ' ist nicht möglich
If IsNull(WMI.VolumeName) Then
  MsgBox "Keine LW-Benennung vergeben !"
Else
  MsgBox "LW-Benennung: " & s
End If

Hauptmenü

Anmeldeformular