RosettaCodeData/Task/File-input-output/VBScript/file-input-output.vb
2015-02-20 09:02:09 -05:00

1 line
165 B
VB.net

CreateObject("Scripting.FileSystemObject").OpenTextFile("output.txt",2,-2).Write CreateObject("Scripting.FileSystemObject").OpenTextFile("input.txt", 1, -2).ReadAll