[REBOL] Re: Using rebol for file transfers over Terminal Services
From: james:mustard at: 5-Feb-2004 8:26
oops! Just realised i was duplicating the rebol[] header - it wont
crash things but its messy ;-)
;updated 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 "rebol[]^/"
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:// s
]
copy-any-files request-file