Recherche
Recherche
Les mémos
Je débute...
Visites

 999662 visiteurs

 1 visiteur en ligne

FAQ
Déplier Fermer  Système

Cocher la référence 'Microsoft Scripting Runtime'


Function ReadHDSerial(strHD As String) As Long

        Dim fso As New Scripting.FileSystemObject

        ReadHDSerial = fso.Drives(strHD).SerialNumber

End Function

Dernière modification :12/08/2006 : 05:03 Hyperlien