发布网友 发布时间:2022-04-28 18:54
共5个回答
热心网友 时间:2022-06-22 22:00
serial number热心网友 时间:2022-06-22 22:00
SerialNumber,返回十进制序列号,用于唯一标识一个磁盘卷。
中文名
SerialNumber
语法
object.SerialNumber
定义
返回十进制序列号
运用
编程
Sub ShowDriveInfo(drvpath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
Select Case d.DriveType
Case 0
t = "未知"
Case 1
t = "可移动"
Case 2
t = "固定"
Case 3
t = "网络"
Case 4
t = "CD-ROM"
Case 5
t = "RAM磁盘"
End Select
s = "驱动器 " & d.DriveLetter & ": - " & t
s = s & vbCrLf & "序列号: " & d.SerialNumber
MsgBox s
End Sub
ShowDriveInfo (drvpath)
说明
可以使用 SerialNumber 属性以确保在可移动媒体驱动器中插入正确的磁盘。
以下代码举例说明如何使用 SerialNumber 属性:
热心网友 时间:2022-06-22 22:01
软件的注册码,序列号,不填的话软件会有功能*。热心网友 时间:2022-06-22 22:01
序列号,S/N热心网友 时间:2022-06-22 22:02
我买了一台现在说书遗失,不知道怎么安装?