ドライブパスの一覧取得

ドライブパス（Cドライブ、Dドライブ等）の一覧を取得します。

Option Explicit

Sub SampleGetDrive()
	Dim drive() As Variant
	Dim idx As Integer

	drive = GetDriveLetter()
	For idx = 1 To UBound(drive)
		' ドライブ一覧をデバッグ出力
		Debug.Print drive(idx)
	Next idx
End Sub


' ドライブの一覧を取得
Function GetDriveLetter() As Variant
	Dim fso As Object
	Dim drive() As Variant
	Dim d As Variant
	Dim idx As Integer

	Set fso = CreateObject("Scripting.FileSystemObject")
	ReDim drive(fso.Drives.Count)

	For Each d In fso.Drives
		idx = idx + 1
		drive(idx) = d.DriveLetter
	Next d

	GetDriveLetter = drive

End Function