getfiled to specify directory only

is it possible to use "getfiled" to find a directory only ??

Thanks inadvance

Greg McLandsborough

 

don't know, but you can use the expresstools functions:

(acet-ui-pickdir "Select target folder..." "c:\\")


"Greg McLandsborough"

 

Yes.
(setq xref_file (getfiled "Select Xref file.." (getvar"dwgprefix") "dwg" 4))
--

AUTODESK
Authorized Developer
www.Cadentity.com
MASi

 

Sorry my misunderstanding.

Just like Luis mentioned.

 

(defun ALE_GetFolder ( / DirPat)
(and
(setq DirPat
(getfiled
"Browse for folder"
"Open a folder and click on SAVE" " " 1
)
)
(setq DirPat (substr DirPat 1 (- (strlen DirPat) 31)))
)
DirPat
)

 

Modified a little

(defun ALE_GetFolder (/ DirPat)
(and
(setq DirPat
(getfiled
"Browse for folder"
"Open a folder and click on SAVE"
" "
1
)
)
(setq DirPat (vl-filename-directory DirPat))
)
DirPat
)

 

Thanks.

Pay attention on trailing "\\"!

--
________________________________________________

Marc'Antonio Alessi (TV) Italy
(strcat "NOT a " (substr (ver) 8 4) " guru.")

O.S. = XP Pro 2002 - Sp.1 - Ita
AutoCAD = 2004 Ita - Sp.1
________________________________________________

 

My preferred method is to use dos_getdir from doslib2k