BrowseForFolder

Uns tempos atrás muitos estavam atrás duma função parecida com o GETFILED, mas que em vez de procurar um arquivo, procurasse uma pasta... eu inclusive... e garimpando na internet encontrei esta rotina:
(defun BrowseForFolder ( text / ret shell)
;acessa o shell do windows:
  (setq shell (vlax-get-or-create-object "shell.application"))
;invoca o metodo "BrowseForFolder" e se o cara escolher algo
  (if (setq ret (vlax-invoke shell "BrowseForFolder" 
                   0 text 1))
;recupera o caminho da pasta escolhida:
      (setq ret (vlax-get (vlax-get ret "Self") "Path")))
;libera a memoria do cad:
  (vlax-release-object shell)
;devolve o caminho ate a pasta selecionada
  ret)

para usar:
(BrowseForFolder "Titulo da janela")
o shell tem muitas coisas legais!! experimente alterar os paramâtros que estão nesta linha: (vlax-invoke shell "BrowseForFolder" 0 text 1), altere o 0 e o 1 para outros números... veja mais sobre o método neste link

Nenhum comentário:

Postar um comentário