【書式】
FileSystemObject.GetDriveName(path)
ドライブを表す文字を返します。
引数pathにはドライブ名を含むパスを指定します。指定するパスは実在しなくてもかまいません。たとえば、存在しない「G:\tanaka\toru」を指定すると、\から左の「G:」を返します。パスとして認識できない「tanaka_toru」のような文字列を指定すると、""を返します。
DriveオブジェクトのDriveLetterプロパティが返すのは「C」のようなアルファベットですが、GetDriveNameメソッドは「C:」とコロンも含むので注意してください。
Sub test15()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''C:を返します
MsgBox FSO.GetDriveName("C:\")
Set FSO = Nothing
End Sub