VB监测U盘代码

来源：百度知道 编辑：UC知道 时间：2024/06/04 05:11:43
老师布置了一个作业：用VB监测U盘是否插入系统，如果插入，则提示信息

这个程序应该怎样才能完成啊？

我曾经使用Sysinfo控件，但是到了其它机器上就不能正常运行，会报错，所以特地请教高手解答，谢谢。
不好意思，GetDriveType用过的，不行。如果使用Timer控件的话，我觉得太浪费资源了，而且效率不高，如果有其他的方法就好些了。

Private Sub Command1_Click()
Set d = CreateObject("Scripting.FileSystemObject")
For i& = 68 To 90
If d.DriveExists(Chr(i)) Then
If (d.GetDrive(Chr(i)).DriveType = 1) Then MsgBox "发现可移动磁盘：" & Chr(i), 64
End If
Next
End Sub

用个API检测，GETTYPEDRIVE