以下是引用情比金坚在2005-2-28 21:16:10的发言:
以下是一个例子:
Dim LDiskSerial1 As LDiskSerial
Set LDiskSerial1 = New LDiskSerial
If LDiskSerial1.ReadDiskSerial("anyChars, "anyChars") Then
Debug.Print LDiskSerial1.SerialNumber
Else
MsgBox "Sorry, Read harddisk information fail!", vbCritical, "Err"
End If
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) | Powered by Discuz! X3.3 |