ник: ddi
Private Sub Form_Load()
Dim i
Dim c
Dim d
Dim k1
Dim k2
Dim k3
Dim z
d = DriveSerial("d")
c = DriveSerial("c")
z = c & d
k1 = z * 8
k2 = z * 20
k3 = z * 39
************************
End Sub
k1 = z * 8 Выдаёт ошибку Type mismauch причом на некотырых компютерых выдаёт а на некотырых нормально работает