[ Συναρτήσεις ] Εγγραφή σε πίνακα

[sirpanos]

Καλημέρα. Μπράβο για την καλή δουλειά που κάνετε και μας βοηθάτε !!!!
Έχω κολλήσει σε κάτι που ίσως είναι πολύ απλό , αλλά κόλλησα.
Φέρνω για παράδειγμα το παρακάτω σχετικά με το κλείδωμα που έχει ανεβάσει ο Τόλης
Πως μπορώ να πάρω την μεταβλητή Serial και να την αποθηκεύσω στο πεδίο ενός πίνακα ??
Ευχαριστώ



'By editolis ms-office.gr

Option Compare Database
Option Explicit
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Dim Serial As Long, VName As String, FSName As String
Public Function CheckVolumeSerialNumber()
Dim S, strCheck0, strCheck1, strCheck2, strCheck3, strCheck4 As String

VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
Serial = Replace(Trim(Str$(Serial)), "-", "")

S = Serial

MsgBox " Ï Volume Serial Number åßíáé ï: " & Serial & ". Óçìåéþóôå ôïí áñéèìï óôïí ðéíáêá tblSVN èá óáò ÷ñåéáóôåß ãéá ôçí åíåñãïðïßçóç.", vbCritical, "HARD DISK Serial Number..."

End Function