Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
Dim I As Long, T As Integer
For I = 65 To 90
T = GetDriveType(Chr(I) & ":\")
If T <> 1 Then
Select Case T
Case 2
If I < 67 Then
Print "软驱：" & Chr(I) & "盘"
Else
Print "可移动硬盘：" & Chr(I) & "盘"
End If
Case 3
Print "硬盘：" & Chr(I) & "盘"
Case 4
Print "映射驱动器：" & Chr(I) & "盘"
Case 5
Print "光驱：" & Chr(I) & "盘"
End Select
End If
Next
End Sub

小妹现在想实现在发现U盘驱动器的时候，如何把sys.ini自动复制进去，现在的客户好奇怪，对U盘还产生了兴趣，我在公司打工，哥哥们帮帮忙！