[REBOL] Using rebol for file transfers over Terminal Services
From: james:mustard at: 5-Feb-2004 8:26
aarrgghhh - I should quit while i'm behind ;-)
;script:
;--------------------------
rebol[]
;copy and paste any file(s) over terminal services connections
copy-any-files: func [fileblock /local b h f s newfile][
if none? fileblock [return]
s: copy ""
foreach filename fileblock [
newfile: split-path filename
h: "tfile: do decompress "
b: compress mold read/binary filename
f: join "^/write/binary %" [newfile/2 " tfile ^/"]
append s join h [b f]
]
write clipboard:// join "rebol[]^/" s
]<