The code in that topic I was already using in my project but it doesn't work in my project when right clicking a folder.
Something is inhibiting the right click, I do not know what it is but I was assuming that the right click wasn't suppose to work.
Another "problem" is that the code triggers on folder-focus-change (which makes sense because the code is supposed to do that).
But what I want is: The below inputfield (id:8) get's the path when the user navigates to a folder (by right click and selecting "Open" or by double clicking on it). The current version of the code is on 'SelectionChanged'.
But still thank you! and my apologies, I wasn't clear enough in my first post.
I wouldn't never have found out that right click also works. I need to re-check/clean my code.
Edit, I might have found a way:
(It output's the path navigated to, by storing the path on 'selectionchanged' and only outputting it on 'documentcomplete')
Function shdoc_folderchange
Something is inhibiting the right click, I do not know what it is but I was assuming that the right click wasn't suppose to work.
Another "problem" is that the code triggers on folder-focus-change (which makes sense because the code is supposed to do that).
But what I want is: The below inputfield (id:8) get's the path when the user navigates to a folder (by right click and selecting "Open" or by double clicking on it). The current version of the code is on 'SelectionChanged'.
But still thank you! and my apologies, I wasn't clear enough in my first post.
I wouldn't never have found out that right click also works. I need to re-check/clean my code.
Edit, I might have found a way:
(It output's the path navigated to, by storing the path on 'selectionchanged' and only outputting it on 'documentcomplete')
Function shdoc_folderchange
str dd=
;BEGIN DIALOG
;0 "" 0x90CF0AC8 0x1 0 0 242 168 "Dialog"
;3 ActiveX 0x54000000 0x0 5 7 114 141 "SHDocVw.WebBrowser"
;8 Edit 0x54030080 0x200 5 151 224 12 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2040601 "*" "" "" ""
str controls = "3 8"
str ax3SHD e8
if(!ShowDialog(dd &sub.DlgProc &controls)) ret
out e8
#sub DlgProc
function# hDlg message wParam lParam
SHDocVw.WebBrowser we3
Shell32.ShellFolderView fv
Shell32.FolderItem fi
int- MhDlg
sel message
,case WM_INITDIALOG
,we3._getcontrol(id(3 hDlg))
,we3._setevents("sub.we3")
,;initial folder
,we3.Navigate(_s.expandpath("$Documents$"))
,MhDlg=hDlg
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1
#sub we3_DocumentComplete
function IDispatch'pDisp `&URL SHDocVw.IWebBrowser2'we3
Shell32.ShellFolderView fv=we3.Document
fv._setevents("sub.fv")
str- path
out path
#sub fv_SelectionChanged
function Shell32.IShellFolderViewDual3'fv
int- MhDlg
Shell32.FolderItem fi=fv.FocusedItem
str- path=fi.Path