Sub PCのすべてのドライブ名を取得する②()

    Set システム = CreateObject("Scripting.FileSystemObject")

    For Each ドライブ In システム.Drives
    
        行 = 行 + 1
        
        Range("A" & 行) = ドライブ.DriveLetter
    
    Next

End Sub