'查找驱动器
Sub Command1_Click()
    Dim FS, D
    Dim i As Integer
    'On Error Resume Next
    Set FS = CreateObject("Scripting.FileSystemObject")
    
    For i = 97 To 122 '(a 到 z)
        DoEvents
        If FS.DriveExists(Chr(i)) Then '驱动器存在
            Set D = FS.getdrive(Chr(i))
            If D.isready Then '驱动器就绪
                Form1.Combo1.AddItem UCase(Chr(i) & ";/")
            End If
        End If
    Next i
End Sub