Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Sub Form_Load() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim strSave As String Me.AutoRedraw = True strSave = String(255, Chr$(0)) ret& = GetLogicalDriveStrings(255, strSave) For keer = 1 To 100 If Left$(strSave, InStr(1, strSave, Chr$(0))) = Chr$(0) Then Exit For Me.Print Left$(strSave, InStr(1, strSave, Chr$(0)) - 1) strSave = Right$(strSave, Len(strSave) - InStr(1, strSave, Chr$(0))) Next keer End Sub