Windows XP Home with Rebol/Core
>> print reform [join "REBOL/" system/product system/version
[ system/build/date]
REBOL/Core 2.5.0.3.1 23-Mar-2001
>> save file: %anton-filemode-test "" ; create a file to experiment on
>> foreach mode get-modes %dummy 'file-modes [
[ print [
[ type? get-modes file mode
[ mode
[ if error? set/any 'err try [
[ set-modes file compose [
[ (to-set-word mode) (get-modes file mode)
[ ]
[ ][mold disarm err] ; <- mold instead of probe
[ ]
[ ]
date creation-date none
date access-date none
date modification-date none
logic owner-write none
logic archived none
logic hidden none
logic system none
file full-path
make object! [
code: 305
type: 'script
id: 'invalid-arg
arg1: 'full-path
arg2: none
arg3: none
near: [set-modes file compose [
(to-set-word mode) (get-modes file mode)
]]
where: none
]
>> delete file ; clean up
Andrew Martin
ICQ: 26227169 http://valley.150m.com/
-><-
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
