Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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