Code for getting the CD-Rom drive letter (Below).

Public Function GetDriveListing() As String()
    Dim sDrives As String        
    sDrives = String(255, 0)
    Dim x() As String
    GetLogicalDriveStrings 255, sDrives
    sDrives = Mid(sDrives, 1, InStrRev(sDrives, "\"))
    Dim tmp() As String
    tmp = Split(sDrives, Chr(0))
    Dim y As Long
    For y = 0 To UBound(tmp)        
    If GetDriveType(tmp(y)) = DRIVE_CDROM Then
    ReDim Preserve x(0 To y)
     x(y) = tmp(y)
     End If
    Next y
    GetDriveListing = x
End Function

If you manage to do this although I tried to describe it ;) you may work
with the following code :

All that you need beside it is a Listbox, a commandbutton and a drivelist,
but it should be easy tu fix this to suit it to your project.

The Only thing that i should note at the end is, that this Programm does
recurse EVERY subfolder ...

Bye
Wind...

Code :

Option Explicit
Dim FSO As FileSystemObject
Private Sub cmdGO_Click()
  Dim sPath As String
  List1.Clear

  ' Init FSO
  Set FSO = New FileSystemObject

  ' Start...
  Screen.MousePointer = vbHourglass
  sPath = Left$(Drive1.drive, 2)
  FSO_GetAllFolders List1, sPath
  Screen.MousePointer = vbNormal
End Sub

' Recursive function to get all folders and subfolders
Private Sub FSO_GetAllFolders(Liste As ListBox, _
  ByVal sPath As String)

  Dim Folder As Folder
  Dim SubFolder As Folder

  ' If possible - add a backslash
  If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"

  Set Folder = FSO.GetFolder(sPath)
  Liste.AddItem sPath

  ' Ignore a possible Access Error
  On Local Error Resume Next

Private Const ThePath = "c:\windows"

Private Sub Command1_Click()
    Dim A$()

    Call LS_GetFilesInPath(ThePath$ + "\*.exe", A$())
    ' ---
    Me.Print UBound(A$()); " Files in A$()"
    Me.Print A$(1)
    Me.Print A$(2)

End Sub

Private Sub LS_GetFilesInPath(FileSpec$, A$())
    Dim S$, Max%, ArSize%

Thanks.

Most large-scale companies remove it from the workstations
to avoid problems.