[sergeys]

Доброе утро.
Подскажите как на lisp-пе можно изменить атрибуты файла (в свойствах файла снять галочки: только для чтения и скрытый). И если атрибуты файла не удалось изменить (допустим по причине не хватки полномочий на этот файл), то вывести сообщение об этом.

Нашла вот подходящий код. в него то и нужно добавить эти изменения:

(defun cleanvirus( / lspfiles lspfile x)
(setq lspfiles '("acad.fas"))
(foreach lspfile lspfiles
(while (setq x (findfile lspfile))
(progn
(vl-file-delete x)
(princ "\nDeleted file ")
(alert (strcat "Внимание! Был удалён потенциально опасный файл по адресу:\n" x))
(princ x)
);progn
);while
);foreach
)
(cleanvirus)

[Кулик Алексей aka kpblc]

Из моих старых архивов, для чтения/установки свойств файла

Код:

[Выделить все]

 (defun _kpblc-file-attributes-get (file / fso fso:file fso:att err res)
                                  ;|
*    Получение атрибутов файла
*    Параметры вызова:
  file    полное имя файла.
|;
  (if (findfile file)
    (progn
      (if (vl-catch-all-error-p (setq err
                                       (vl-catch-all-apply
                                         (function
                                           (lambda ()
                                             (setq fso      (vlax-get-or-create-object "Scripting.FileSystemObject")
                                                   fso:file (vlax-invoke-method fso 'getfile file)
                                                   fso:att  (vlax-get-property (vlax-invoke fso 'getfile file) 'attributes)
                                                   ) ;_ end of setq
                                             ) ;_ end of lambda
                                           ) ;_ end of function
                                         ) ;_ end of vl-catch-all-apply
                                      ) ;_ end of setq
                                ) ;_ end of vl-catch-all-error-p
        (progn
          (princ (strcat "\n** error ** : " (vl-catch-all-error-message err)))
          (setq fso:att nil)
          ) ;_ end of progn
        ) ;_ end of if
      (foreach item (list fso:file fso)
        (vl-catch-all-apply (function (lambda () (vlax-release-object item))))
        ) ;_ end of foreach
      ) ;_ end of progn
    ) ;_ end of if
  (foreach item '(("archive" . 32) ("system" . 4) ("hidden" . 2) ("readonly" . 1))
    (if (= (logand fso:att (cdr item)) (cdr item))
      (setq res     (cons (car item) res)
            fso:att (- fso:att (cdr item))
            ) ;_ end of setq
      ) ;_ end of if
    ) ;_ end of foreach
  res
  ) ;_ end of defun

(defun _kpblc-file-attributes-set (file att / fso fso:file)
                                  ;|
*    Установка атрибутов для файла
*    Параметры вызова:
  file : полный путь к файлу
  att  : список устанавливаемых атрибутов (из вариантов "archive" "system" "hidden" "readonly")
|;
  (if (findfile file)
    (progn
      (if (vl-catch-all-error-p (setq err
                                       (vl-catch-all-apply
                                         (function
                                           (lambda ()
                                             (setq fso      (vlax-get-or-create-object "Scripting.FileSystemObject")
                                                   fso:file (vlax-invoke-method fso 'getfile file)
                                                   ) ;_ end of setq
                                             (vlax-put-property
                                               fso:file
                                               'attributes
                                               (apply
                                                 (function +)
                                                 (mapcar
                                                   '(lambda (x) (cdr (assoc x '(("archive" . 32) ("system" . 4) ("hidden" . 2) ("readonly" . 1)))))
                                                   att
                                                   ) ;_ end of mapcar
                                                 ) ;_ end of apply
                                               ) ;_ end of vlax-put-property

                                             ) ;_ end of lambda
                                           ) ;_ end of function
                                         ) ;_ end of vl-catch-all-apply
                                      ) ;_ end of setq
                                ) ;_ end of vl-catch-all-error-p
        (progn
          (princ (strcat "\n** error ** : " (vl-catch-all-error-message err)))
          (setq fso:att nil)
          ) ;_ end of progn
        ) ;_ end of if
      (foreach item (list fso:file fso)
        (vl-catch-all-apply (function (lambda () (vlax-release-object item))))
        ) ;_ end of foreach
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

[sergeys]

Спасибо за помощь.