Sürücünün kök klasörünü öğrenmemize yarayan bir makro kodudur.
Option Explicit
Sub KokKlasorBilgisiniGetir()
Dim fso As Object
Dim surucu As Object
Dim kokKlasor As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set surucu = fso.GetDrive("C:\")
kokKlasor = surucu.RootFolder
MsgBox kokKlasor
End Sub