29-04-14, 15:26
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.011
| |
Καλησπέρα!
Πάνο δοκίμασε: Κώδικας: Sub test()
Dim strSerial As String ' η μεταβλητή σου
strSerial = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
MsgBox strSerial
End Sub
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |