C: D: ect

بسم الله الرحمن الرحيم

تحية طيبة و بعد

جرب الكود التالي

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Form_Load()

    Dim MmM As String

    Me.AutoRedraw = True

    MmM = String(255, Chr$(0))

    ret& = GetLogicalDriveStrings(255, MmM)

    For PcBat = 1 To 100

        If Left$(MmM, InStr(1, MmM, Chr$(0))) = Chr$(0) Then Exit For

        Me.Print Left$(MmM, InStr(1, MmM, Chr$(0)) - 1)

        MmM = Right$(MmM, Len(MmM) - InStr(1, MmM, Chr$(0)))

    Next PcBat

End Sub

و الله الموفق