RosettaCodeData/Task/File-IO/VBScript/file-io.vb
2013-04-11 11:14:19 -07: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