How to open and close a Folder by visual lisp?

[nataca]

How to open and close a Folder by visual lisp?
I have a Path (ex:"D:\\PROJECTS\2010\")

[pBe]

How to open and close a Folder by visual lisp?
I have a Path (ex:"D:\\PROJECTS\2010\")

One way is

 
(defun openw (fldr)
(startapp "explorer" fldr)
  )

(openw "D:\\PROJECTS\2010")

[nataca]

Thanks.
Lee helped me

(defun Explore ( Directory / Shell result )
  (setq Shell  (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))
  (setq result (vl-catch-all-apply 'vlax-invoke (list Shell 'Explore Directory)))
  (vlax-release-object Shell)
  (not (vl-catch-all-error-p result))
)

But I still can't Close a Folder

[Ace]

this may help

;;;CADALYST 10/06   Tip2158: Directory.lsp   Directory   (c) Mark Newman 
 
;;; Created by Mark Newman : June 2002
;;;
;;  ----
;;  ----
(DEFUN C:DIRECTORY (/)
  (STARTAPP "EXPLORER" (GETVAR "DWGPREFIX"))
  (PRINC)
)
;;  ----
;;  ----

[Bill Tillman]

I have needed a way for our users to open files in a specific folder. Not the last one accessed or the folder where the particular open file originated. Trying to use the Open command did not work so I used "startapp" like this to open Explorer in the T:\ drive which is mapped to a server location:

^C^C^P(startapp "Explorer T:")

This works but I'd like to have only the *.dwg file appear in the list and adding \*.dwg to the above command has no affect on it.

[Lee Mac]

(getfiled "" "T:\\" "dwg" 16)

[Bill Tillman]

Lee,

Thanks. I had to double check my syntax, but that is working. Thanks again.

BTW - are you getting to see any of the Olympic Games over there?

[Lee Mac]

BTW - are you getting to see any of the Olympic Games over there?

I certainly am! Some fantastic talent on show, absolutely enthralling to watch

[Bill Tillman]

Especially the Netherlands Women's Field Hockey team. Hubba hubba!

To complete this here is what I ended up doing:

(defun c:open4chk (/ fname)
  (vl-load-com)
  (setq fname (getfiled "" "T:/" "dwg" 16))
  (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) fname))
)

Works pretty good. Thanks again.

[Lee Mac]

Indeed, or the beach volleyball!

Alternatively, consider:

(defun c:open4chk ( / f )
    (if (setq f (getfiled "" "T:/" "dwg" 16))
        (startapp "explorer" f)
    )
    (princ)
)