Search the Community

Hi everyone, I am using Lee Mac's Program BrowseForFolderV1-3.lsp (http://www.lee-mac.com/directorydialog.html) to save and open folder's contents in a DCL box. I have set the value for the bit Parameter to 16384: (GetFiles:browseforfolder "" "" 16384). In this way, when I am exploring the folders, I can see that there are .lnk folders, but I don't achieve to open the .lnk folders and see/save their content. Does anybody know if I need to use another bit parameter combination or do I have to modify the "browseforfolder" function to accomplish my task? Please find attached a Screenshoot of my DCL box. When I click the "Pfad auswählen" Button I have the option to load the selected folder's content from the next window folder explorer. I can open/select a normal folder to see for example all .dwgs that are saved inside that folder. But I can't open a linked folder. Please see the red arrow in the attached Screen Shoot. Please help with ideas! Many thanks in advance. (defun LM:browseforfolder ( msg dir flg / err fld pth shl slf ) (setq err (vl-catch-all-apply (function (lambda ( / app hwd ) (if (setq app (vlax-get-acad-object) shl (vla-getinterfaceobject app "shell.application") hwd (vl-catch-all-apply 'vla-get-hwnd (list app)) fld (vlax-invoke-method shl 'browseforfolder (if (vl-catch-all-error-p hwd) 0 hwd) msg flg dir) ) (setq slf (vlax-get-property fld 'self) pth (GetFiles:fixdir (vlax-get-property slf 'path)) ) ) ) ) ) ) (if slf (vlax-release-object slf)) (if fld (vlax-release-object fld)) (if shl (vlax-release-object shl)) (if (vl-catch-all-error-p err) (prompt (vl-catch-all-error-message err)) pth ) )