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
Function GetSerialNumber(sDrive As String) As Long
'fails then a 0 will be returned.
'Ex: Hex$(GetSerialNumber("C")) = "1AF9"
'See Also: GetVolumeName()
End Sub
( serialdrive.html )- by Paolo Puglisi
- Modifica del 17/12/2023