Schöck
Показать сообщение отдельно
Непрочитано 14.01.2008, 10:55 #1
DwgRuLispLib: Удаление каталога
Кулик Алексей aka kpblc
Moderator
 
LISP, C# (ACAD 200[9,12,13,14])
 
С.-Петербург
Регистрация: 25.08.2003
Сообщений: 36,800

Код:
[Выделить все]
;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2007  DWGru Programmers Group
;;; *
;;; * dwgru-browse-dir-delete
;;; *
;;; * 07/12/2007 Версия 01.001.14.
;;; * Кулик Алексей aka kpblc
;;; ************************************************************************

(defun dwgru-browse-dir-delete (path / svr res)
;;;    Удаляет существующий каталог со всеми его подкаталогами и файлами.
;;;    Возвраемое значение: нет
;;;   Допускается наличие в каталоге файлов read-only и hidden. Они все равно
;;; будут удаляться.
;;;    Примеры вызова:
  ;|
(dwgru-browse-dir-delete "c:\\1")
(dwgru-browse-dir-delete "c:\\1\\")
|;
  (setq svr (vlax-get-or-create-object "Scripting.FileSystemobject")
        res (vl-catch-all-apply
              '(lambda ()
                 (vlax-invoke-method
                   svr
                   'deletefolder
                   (_dwgru-dir-path-no-splash path)
                   :vlax-true
                   ) ;_ end of vlax-invoke-method
                 ) ;_ end of lambda
              ) ;_ end of vl-catch-all-apply
        ) ;_ end of setq
  (vlax-release-object svr)
  (princ)
  ) ;_ end of defun

Вложения
Тип файла: lsp dwgru-browse-dir-delete.LSP (1.2 Кб, 225 просмотров)

__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Просмотров: 14804
 
Tekla Structures. Видеокурс. ЖЕЛЕЗОБЕТОН
Размещение рекламы