Kod:
Private Sub Form_Load()
On Error GoTo 10
Dim nesne, disk, k
Set nesne = CreateObject("Scripting.FileSystemObject")
Set disk = nesne.GetDrive(nesne.GetDriveName(nesne.GetAbsolutePathName("d:\")))
k = disk.SerialNumber
r = MD5String(disk.SerialNumber)
Open CurrentProject.Path & "/" & disk.SerialNumber & ".txt" For Input As 1
Do While Not EOF(1)
Line Input #1, kayit1
If kayit1 <> Empty Then
M = kayit1
satir = satir + 1
End If
Loop
Close #1
If M = r Then
Else
10 DoCmd.OpenForm "şifree"
End If
End Sub