Dim fso As New FileSystemObject
Dim drive As driveFor Each drive In fso.Drives
If drive.DriveType = CDRom Then
If drive.IsReady Then
MsgBox "CDROM中有盘!"
Else
MsgBox "CDROM中没盘!“"
End If
Exit For
End If
Next
Dim drive As driveFor Each drive In fso.Drives
If drive.DriveType = CDRom Then
If drive.IsReady Then
MsgBox "CDROM中有盘!"
Else
MsgBox "CDROM中没盘!“"
End If
Exit For
End If
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货