Post by BeeTrap on Feb 27, 2019 9:46:02 GMT -5
Don't know if anyone needs to see this, but, I just tried to run my encryption program under the 347 Alpha and get an error. The code runs under ver 4.5.1 Pro without any problem. What I see is the second dot/period in each line is shown in red with a black underline. The thing is, only the 1st, 3rd, 4th and 5th lines are highlighted like this. I get
"Syntax error: at line 399: BrowseInfo.plszTitle$.struct = Hint$
I thought that it may have been the extra spaces before the "=" sign, but the next line"BrowseInfo.pIDLRoot.struct = GetSpecialfolderIDL(hexdec(RootDirID$))"
does not show the second period/dot as red and underlined in black.
Below is from the "Updated" Sample Code that Rod supplied around August 2017.......... this is from "browseForFolder.bas".
'-- There are many discussions on conforums that include browse for folder code
'--- Stefan Pendal provides this code which appears stable.
'---- Older versions give an occasional protection violation error
'-- The purpose of this code is to open a dialog for the user to choose a destination folder
'---------------------------------------------------------------------------------------------------
'
STRUCT BrowseInfo,_
hWndOwner as ulong,_
pIDLRoot as ulong,_
pszDisplayName$ as ptr,_
lpszTitle$ as ptr,_
ulFlags as uLong,_
lpfnCallback as uLong,_
lParam$ as ptr,_
iImage as uLong,_
dlgCaption$ as ptr
BrowseInfo.lpszTitle$.struct = Hint$
BrowseInfo.pIDLRoot.struct = GetSpecialfolderIDL(hexdec(RootDirID$)) '<<<--- where "11" is passed to get "drives" as default "dir"
BrowseInfo.lParam$.struct = StartDir$ + chr$(0)
BrowseInfo.dlgCaption$.struct = Caption$
BrowseInfo.pszDisplayName$.struct = space$(_MAX_PATH)