Detecting a ZIP drive 1

[Guaicaipuro]

Hi
i want to make a sub that detects only ZIP drives for sure (letter identifier) installed in a PC or in a network. How can i do that?

Thanks in advance

 

[Toastie]

this is all that comes to mind

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL:

http://www.allapi.net/

'E-Mail: KPDTeam@Allapi.net
'Set the graphic mode to persistent
Me.AutoRedraw = True
'Get information about the C: Select Case GetDriveType("C:\&quot
Case 2
Me.Print "Removable"
Case 3
Me.Print "Drive Fixed"
Case Is = 4
Me.Print "Remote"
Case Is = 5
Me.Print "Cd-Rom"
Case Is = 6
Me.Print "Ram disk"
Case Else
Me.Print "Unrecognized"
End Select
End Sub

 

[Guaicaipuro]

Hi

thank you Toastie, now i can detect ZIP drives like removable drives.

thanks again

my regards.