[sirpanos]

Εμπλεξα ...
Σε ποιο σημείο βάζω το βάζω να τρέξει?
Είναι σωστή η μορφή αυτή?
Sub test()
Dim strSerial As StrSvnNumber
strSerial = CreateObject("Scripting.FileSystemObject").GetDriv e("C").SerialNumber
MsgBox strSerial
End Sub

Χρησιμοποιώ ακριβώς το παραπάνω παράδειγμα και θα το μεταφέρω όπου το χρειάζομαι.