Oppure

Loading
26/08/08 15:01
ma le lettere dove le ottengo?, li non compare niente
26/08/08 18:42
Overflow
le lettere dei drive dei dc-rom sono nell'array cdrom: 
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long

Const DRIVE_CDROM = 5

Const MAX_DRIVE_CDROM = 3


Private Sub Form_Load()
Dim cdrom(MAX_DRIVE_CDROM - 1) As String

For i = 0 To Drive1.ListCount - 1
    If GetDriveType(Drive1.List(i)) = DRIVE_CDROM Then
        cdrom(n) = Drive1.List(i)
        n = n + 1
    End If
Next i
'''''''''''''''
for i=0 to 1
msgbox cdrom(i)
next i
''''''''''''''
End Sub


for i=0 to 1
msgbox cdrom(i)
next i
cosi visualizzi l'array che contiene le lettere
aaa