BrowseForFolderV1-3.lsp Lee Mac value for bit Parameter to open a .lnk Folder

[silvia_david]

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
   )

)

Edited June 27, 2018 by SLW210
Code Tags

[SLW210]

Please read the Code Posting Guidelines and have your Code to be included in Code Tags.[NOPARSE]

Your Code Here[/NOPARSE]

=

Your Code Here