RosettaCodeData/Task/File-IO/VBScript/file-io.vb

2 lines
165 B
VB.net

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