Fonts Klasör Yolunu Mesaj Olarak Göster - Microsoft Excel

Windows "Fonts" klasörünün yolunu mesaj olarak gösteren VBA kodudur.

Option Explicit

Sub FontsKlasorYolunuMesajOlarakGoster()
    Dim wScriptShell As Object

    Set wScriptShell = CreateObject("WScript.Shell")

    MsgBox "Font dosya yolu : " _
    & vbCrLf & wScriptShell.SpecialFolders("Fonts")

    Set wScriptShell = Nothing
End Sub