Different Useful Paths

Sub GetSpecialFolderPath()

    Dim oSpecialfolders As Object

    Set oSpecialfolders = CreateObject("WScript.Shell").SpecialFolders.

    Debug.Print oSpecialfolders("desktop")

    Debug.Print oSpecialfolders("allusersdesktop")

    Debug.Print oSpecialfolders("sendto")

    Debug.Print oSpecialfolders("startmenu")

    Debug.Print oSpecialfolders("recent")

    Debug.Print oSpecialfolders("favorites")

    Debug.Print oSpecialfolders("mydocuments")

    Debug.Print Environ("userprofile")

    Debug.Print Environ("appdata")

    Debug.Print Application.UserLibraryPath

    Debug.Print Application.LibraryPath

    

End Sub