Problem with Qm 2.4.1.4

[Gintaras]

It was a private function, now replaced with sub-function Callback in BrowseForFolder.
Replace word 'BFF_Callback' to 'sub.Callback', and add this code at the bottom:
Function MyBrowseForFolder

Code:

Copy      Help

#sub Callback
function# hwnd uMsg lParam STRINT&lpData

sel uMsg
,case BFFM_INITIALIZED
,if(lpData.s.len) SendMessage hwnd BFFM_SETEXPANDED 1 @lpData.s ;;does not work on w2000
,case BFFM_SELCHANGED
,if(lpData.i&6=4 and _winnt<6) SendMessage hwnd BFFM_ENABLEOK 0 PidlToStr(+lParam &_s 1) ;;w2000/xp bug fix

(this code is from BrowseForFolder)