Topic: Open Windows Explorer

[KHoughton]

I am using the code below to open Windows Explorer to a specific folder from within AutoCAD. It works on every computer except one. I do not get any errors to indicate that it is not working, it just doesn't open Explorer. Any ideas why it may not work on one computer?

Code - Auto/Visual Lisp: [Select]

1. (defun c:PPisofolder ()
2. (startapp "explorer" (strcat "/n,/e," "S:\\CAD_Standards\\_SE_Custom\\Piping\\Symbols\\Blocks\\Iso_Symbols"))
3. (princ)
4. )

[ChrisCarlson]

What happens when you enter this on the command line of the issue computer?

explorer.exe /n,/e,"S:\CAD_Standards\_SE_Custom\Piping\Symbols\Blocks\Iso_Symbols"

[tombu]

Since it's a network folder have you tested to make sure the folder is accessible from that computer?

[ChrisCarlson]

If the folder isn't available, explorer "should" open to C:\Users\USERNAME\Documents

[ronjonp]

You could try this alternative:

Code - Auto/Visual Lisp: [Select]

1. (defun _opendirectory (path / sa)
2.   (if (and (eq 'str (type path))
3.            (findfile (vl-string-right-trim "\\" path))
4.            (setq sa (vlax-create-object "Shell.Application"))
5.       )
6.     (progn (vlax-invoke sa 'explore path) (vlax-release-object sa))
7.   )
8.   (princ)
9. )
10.  
11.  
12. (_opendirectory "S:\\CAD_Standards\\_SE_Custom\\Piping\\Symbols\\Blocks\\Iso_Symbols")
13.  
14.  
15. ;; Handy function
16. (defun c:cd nil (_opendirectory (getvar 'dwgprefix)))

[KHoughton]

What happens when you enter this on the command line of the issue computer?

explorer.exe /n,/e,"S:\CAD_Standards\_SE_Custom\Piping\Symbols\Blocks\Iso_Symbols"

When I enter this in the Windows command line on the issue computer I get an error message (attached image).

You could try this alternative:

Code - Auto/Visual Lisp: [Select]

1. (defun _opendirectory (path / sa)
2.   (if (and (eq 'str (type path))
3.            (findfile (vl-string-right-trim "\\" path))
4.            (setq sa (vlax-create-object "Shell.Application"))
5.       )
6.     (progn (vlax-invoke sa 'explore path) (vlax-release-object sa))
7.   )
8.   (princ)
9. )
10.  
11.  
12. (_opendirectory "S:\\CAD_Standards\\_SE_Custom\\Piping\\Symbols\\Blocks\\Iso_Symbols")
13.  
14.  
15. ;; Handy function
16. (defun c:cd nil (_opendirectory (getvar 'dwgprefix)))

This code works when I initially run it but after when I run it again it opens the folder where the current file is located. I need it to open the same folder ("S:\\CAD_Standards\\_SE_Custom\\Piping\\Symbols\\Blocks\\Iso_Symbols") all the time. I have limited knowledge of lisp so I was not able to manipulate it to accomplish what I need.

Thank you all for your help, it is greatly appreciated.

[ChrisCarlson]

Couple things, known virus / malware free?

A modified routine from Ron would be this;

Code - Auto/Visual Lisp: [Select]

1.  
2. (defun _opendirectory (path / sa)
3.   (if (and (eq 'str (type path))
4.            (findfile (vl-string-right-trim "\\" path))
5.            (setq sa (vlax-create-object "Shell.Application"))
6.       )
7.     (progn (vlax-invoke sa 'explore path) (vlax-release-object sa))
8.   )
9.   (princ)
10. )
11.  
12. (defun c:cd nil (_opendirectory "S:\\CAD_Standards\\_SE_Custom\\Piping\\Symbols\\Blocks\\Iso_Symbols"))
13.  
14.  

"cd" to run

[kraz]

what about this ..

Code - Auto/Visual Lisp: [Select]

1. (defun openDir (gPath / )
2.         (setq gPath (vl-string-subst "\\" "/" gPath))
3.         (vl-cmdf ".shell" (strcat "explorer.exe " gPath))
4. )
5.  

[ROBBO]

Code - Auto/Visual Lisp: [Select]

1. (startapp "explorer.exe" "S:\\CAD_Standards\\_SE_Custom\\Piping\\Symbols\\Blocks\\Iso_Symbols")

[KHoughton]

Couple things, known virus / malware free?

A modified routine from Ron would be this;

Code - Auto/Visual Lisp: [Select]

1.  
2. (defun _opendirectory (path / sa)
3.   (if (and (eq 'str (type path))
4.            (findfile (vl-string-right-trim "\\" path))
5.            (setq sa (vlax-create-object "Shell.Application"))
6.       )
7.     (progn (vlax-invoke sa 'explore path) (vlax-release-object sa))
8.   )
9.   (princ)
10. )
11.  
12. (defun c:cd nil (_opendirectory "S:\\CAD_Standards\\_SE_Custom\\Piping\\Symbols\\Blocks\\Iso_Symbols"))
13.  
14.  

"cd" to run

This works perfect. Thank you all very much!!

[ChrisCarlson]

Couple things, known virus / malware free?

A modified routine from Ron would be this;

Code - Auto/Visual Lisp: [Select]

1.  
2. (defun _opendirectory (path / sa)
3.   (if (and (eq 'str (type path))
4.            (findfile (vl-string-right-trim "\\" path))
5.            (setq sa (vlax-create-object "Shell.Application"))
6.       )
7.     (progn (vlax-invoke sa 'explore path) (vlax-release-object sa))
8.   )
9.   (princ)
10. )
11.  
12. (defun c:cd nil (_opendirectory "S:\\CAD_Standards\\_SE_Custom\\Piping\\Symbols\\Blocks\\Iso_Symbols"))
13.  
14.  

"cd" to run

This works perfect. Thank you all very much!!

If you want any other folders to open add a line similar to this

Code - Auto/Visual Lisp: [Select]

1. (defun c:cd1 nil (_opendirectory "Drive:\\Folder\\Folder"))
2.  

[77077]

@ronjonp  good function.

[ronjonp]

@ronjonp  good function.

Thanks