(defun _kpblc-browsefolder (caption / shlobj folder fldobj outval)
                           ;|
  -bin/f1/board.cgi?t=21054YY    
  *    Áåç îòîáðàæåíèÿ ôàéëîâ
  *    Ïàðàìåòðû âûçîâà:
    ( ïîÿñíåíèå ) îêíà 
  *    Ïðèìåðû âûçîâà:
  (_kpblc-browsefolder "Âûáåðèòå êàòàëîã")
  |;
  (setq shlobj (vla-getinterfaceobject (vlax-get-acad-object) "Shell.Application")
        folder (vlax-invoke-method
                 shlobj
                 'browseforfolder
                 (vla-get-hwnd (vlax-get-acad-object))
                 caption
                 (+ 512 16)
               ) ;_ end of vlax-invoke-method
  ) ;_ end of setq
  (vlax-release-object shlobj)
  (if folder
    (progn (setq fldobj (vlax-get-property folder 'self)
                 outval (vlax-get-property fldobj 'path)
           ) ;_ end of setq
           (vlax-release-object folder)
           (vlax-release-object fldobj)
_ end of progn 
  ) ;_ end of if
  outval
) ;_ end of defun

|

_ end of vlax-invoke-method
_ end of setq
_ end of setq
_ end of if
_ end of defun

(defun _kpblc-browsefolder (caption / shlobj folder fldobj outval)
  -bin/f1/board.cgi?t=21054YY    
  *    Áåç îòîáðàæåíèÿ ôàéëîâ
  *    Ïàðàìåòðû âûçîâà:
    ( ïîÿñíåíèå ) îêíà 
  *    Ïðèìåðû âûçîâà:
  (_kpblc-browsefolder "Âûáåðèòå êàòàëîã")
  (setq shlobj (vla-getinterfaceobject (vlax-get-acad-object) "Shell.Application")
        folder (vlax-invoke-method
                 shlobj
                 'browseforfolder
                 (vla-get-hwnd (vlax-get-acad-object))
                 caption
                 (+ 512 16)
  (vlax-release-object shlobj)
  (if folder
    (progn (setq fldobj (vlax-get-property folder 'self)
                 outval (vlax-get-property fldobj 'path)
           (vlax-release-object folder)
           (vlax-release-object fldobj)
_ end of progn 
  outval
