ich habe den Code zum Auslesen der Festplatten-Seriennummer eingearbeitet, bekomme jedoch einen Laufzeitfehler '5'angezeigt.
Weiss jemand, warum dieser Code nicht funktioniert?
Dim objFileSystemObject As Object, Sernum$, Erlaubt$
LW = Left(ThisWorkbook.Path, 3)
Set objFileSystemObject = CreateObject("Scripting.FileSystemObject")
Sernum = objFileSystemObject.GetDrive(LW).SerialNumber
MsgBox Sernum