Please test a _GetMusicDir() function

[Achilles]

Hello, I'm creating a media player and wanted a way to get the music dir of the user... I think I've got it figured out by I don't have XP to check.. Please check:

$name = _GetMusicDir()
Msgbox(0, '', $name)

Func _GetMusicDir() 
    If @OSVersion = 'WIN_VISTA' then 
        Return @UserProfileDir & '\Music' 
    Else 
        Return @MyDocumentsDir & '\My Music' 
    EndIf 
EndFunc

[Decker87]

It worked for me on XP. I have my music at the default location.

[BrettF]

All good here.

Wouldn't the location be in the registry somewhere?

I found these in the registry...

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

http://www.kellys-korner-xp.com/xp_shell_folders.htm

Not sure if there's anything else muttley

[Achilles]

Thanks for that Bert, I hadn't thought of the registry. Please test this now, it works on Vista:

$name = _GetMusicDir()
Msgbox(0, '', $name)

Func _GetMusicDir() 
;~  If @OSVersion = 'WIN_VISTA' then 
;~      Return @UserProfileDir & '\Music' 
;~  Else 
;~      Return @MyDocumentsDir & '\My Music' 
;~  EndIf 
    Return RegRead('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', 'My Music')
EndFunc

[BrettF]

Thanks for that Bert, I hadn't thought of the registry. Please test this now, it works on Vista:

$name = _GetMusicDir()
Msgbox(0, '', $name)

Func _GetMusicDir() 
;~  If @OSVersion = 'WIN_VISTA' then 
;~      Return @UserProfileDir & '\Music' 
;~  Else 
;~      Return @MyDocumentsDir & '\My Music' 
;~  EndIf 
    Return RegRead('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', 'My Music')
EndFunc

XP Pro SP2 all good... muttley

[AdmiralAlkex]

XP Pro SP2 all good...

Swe XP Home SP3 also good muttley

(but the first one would never have worked since "My Music" is translated on local versions)

[Achilles]

Alright, thanks for your help in clarifying that. I'll go with the regread...

[Backnor]

works on Vista home ult