Visual Basic

Option Explicit

Private Const S_OK = &H0
Private Const S_FALSE = &H1
Private Const E_INVALIDARG = &H80070057

Private Const MAX_PATH = 260
Private Const SHGFP_TYPE_CURRENT = 0
Private Const CSIDL_MYPICTURES = &H27

Private Declare Function SHGetFolderPath Lib "shfolder" _
    Alias "SHGetFolderPathA" _
    (ByVal hwndOwner As Long, ByVal nFolder As Long, _
    ByVal hToken As Long, ByVal dwFlags As Long, _
    ByVal pszPath As String) As Long

Private Function GetFolderPath(ByVal csidl As Long) As String
    Dim path As String
    Dim returnValue As Long
    
    path = String(MAX_PATH, 0)
    returnValue = SHGetFolderPath(0, csidl, 0, SHGFP_TYPE_CURRENT, path)
    
    Select Case returnValue
        Case S_OK
            GetFolderPath = Left(path, InStr(1, path, Chr(0)) - 1)
        
        Case S_FALSE
            ' The CSIDL in nFolder is valid, but the folder does not exist.
            ' Use CSIDL_FLAG_CREATE to have it created automatically
            GetFolderPath = vbNullString
        
        Case E_INVALIDARG
            ' nFolder is invalid
            Err.Raise 5, "csidl", "Invalid folder"
    End Select
End Function

Public Function GetPicturesFolderPath() As String
    GetPicturesFolderPath = GetFolderPath(CSIDL_MYPICTURES)
End Function

The long and sad story of the Shell Folders key – The Old New Thing[^]:

In other words, the "Shell Folders" key exists solely to permit four programs written in 1994 to continue running on the RTM version of Windows 95.

Richard Deeming wrote:

However, there is a warning in that key telling you not to do that!

Richard Deeming wrote:

I'd expect the names of the folders to be localized

Richard Deeming wrote:

But what about the names of the values in the "User Shell Folders" registry key?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Eddy Vluggen wrote:

nglish, both on a Dutch and a German machine. Called "CommonPictures" on this machine, pointing to the correct physical path. Keys are usually not translated, because that would defeat the purpose of having one.

Your message 'Re: Finding the path to the pictures' has been marked as potentially being spam and is currently in the moderation queue pending approval.