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

 997940 visiteurs

 2 visiteurs 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