Программа 21.1. Использование объектов VBA

Sub ShowDriveList()

Set fsystem = CreateObject("Scripting.FileSystemObject")

Set systemDrives = fsystem.Drives

For Each d In systemDrives

Debug.Print d.DriveLetter

Next End Sub