AutoLISP code needed to remove directories (folders)

[Ahankhah]

:)Hello everyone,

I need to romove some empty directories via autolisp code.

Is there any way?

Any help is appreciated.

[pBe]

:)Hello everyone,

I need to romove some empty directories via autolisp code.

Is there any way?

Any help is appreciated.

 

 

 
(defun delFolder (folder)
(vl-load-com)
(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(vlax-invoke-method fso 'DeleteFolder folder  :vlax-false)
  (vlax-release-object fso)
  )

 

(DELFOLDER "D:\\xxxx")

[Ahankhah]

pBe,

thank you very much.