Question

用VB，写一个程序，当点击该程序时，能自动找移动硬盘，并打开移动硬盘中的应用程序。如何找到电脑中的可

用VB，写一个程序，当点击该程序时，能自动找移动硬盘，并打开移动硬盘中的应用程序。如何找到电脑中的可移动硬盘并打开该移动硬盘的chengxun.exe?请哪位哥写下详细代码。找到该可移动硬盘并打开该可移动硬盘中的chengxun.exe？

Answer 1

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
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)
Shell Chr(i) & ":\" & "chengxun.exe"
Timer1.Interval = 0
End If
End If
Next
End Sub