RosettaCodeData/Task/File-input-output/Mathematica/file-input-output.math

mirror of https://github.com/acmeism/RosettaCodeData.git
SetDirectory@NotebookDirectory[];
If[FileExistsQ["output.txt"], DeleteFile["output.txt"], Print["No output yet"] ];
CopyFile["input.txt", "output.txt"]
	`SetDirectory@NotebookDirectory[];`
	`If[FileExistsQ["output.txt"], DeleteFile["output.txt"], Print["No output yet"] ];`
	`CopyFile["input.txt", "output.txt"]`