SerialDrive

Function GetSerialNumber(sDrive As String) As Long
'fails then a 0 will be returned.

'Ex: Hex$(GetSerialNumber("C")) = "1AF9"

'See Also: GetVolumeName()

End Sub