Topic: Fileopen test

[Lee Mac]

Lee, I don't think that is what the OP requires.
When [you] open an AutoCAD file read-Only the file attributes are NOT set by the Op System ... In fact I think you may be able to even move the file while it is open. If memory serves, the read-only status is saved by the app.

Apologies -

You are right, it (my function) returns nil in both states (open & closed).

[kpblc]

Try this:

Code: [Select]

(defun check-readonly-file (file)
                           ;|
Cheking REadONly file
Call args:
file - filename, string
Returns:
-1 -> File not exist
0  -> File is not read-only
1  -> File is read-only
|;
  (cond
    ((not (findfile file))
          ;(princ "\nFile not found")
     -1
     )
    ((not (vl-file-systime (findfile file)))
          ;(princ "\nFile is ReadOnly")
     0
     )
    (t
     1
          ;(princ "\nEverything OK")
     )
    ) ;_ end of cond
  ) ;_ end of defun

[BlackBox]

Combined the WHOHAS code and have a really useful function now.

Post your code, for others to find.