Posted by Barbara Brazil on July 19, 2013 at 15:30:19:
In Reply to: Re: XAP - file copy posted by Frank Caton on July 19, 2013 at 13:54:00:
Frank:
Here's some sample code you can try. It create a new file and copies to TMP, but you'll get the idea:
InPath$ = InPath$ + "@00@"
OutPath$ = path("TMP") + filename$ + "@00@"
ax$ = "@3d00@" & cx$ = "@0000@"
dosfc(ax$,cx$,InPath$) excp=DosErr ! open input file
InHdl$ = ax$
ax$ = "@3c00@" & cx$ = "@0000@"
dosfc(ax$,cx$,OutPath$) excp=DosErr ! create output file
OutHdl$ = ax$
ax$ = "@fffa@"
cx$ = "@0000@"
dosms(ax$,cx$,InHdl$,OutHdl$) excp=DosErr ! copy file
ax$ = "@3e00@"
dosms(ax$,InHdl$,cx$,cx$) ! close the files
ax$ = "@3e00@"
dosms(ax$,OutHdl$,cx$,cx$)
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.