getfiled to specify directory only

[Greg McLandsborough]

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

Thanks inadvance

Greg McLandsborough

 

[Luis Esquivel]

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

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

"Greg McLandsborough"

 

[Rudy Tovar]

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

 

[Rudy Tovar]

Sorry my misunderstanding.

Just like Luis mentioned.

 

[Marc'Antonio Alessi]

(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
)

 

[zeha]

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
)

 

[Marc'Antonio Alessi]

Thanks.

Pay attention on trailing "\\"!

 

[petervose]

My preferred method is to use dos_getdir from doslib2k