Imports System.IO
Module Module1
Sub Main()
Dim new_file_name As String = "d:\\data_copy.txt"
If Not File.Exists(new_file_name) Then
File.Copy("d:\\data.txt", new_file_name)
End If
Console.WriteLine(File.ReadAllText("d:\data.txt"))
Console.WriteLine(File.ReadAllText(new_file_name))
End Sub
End Module
' run:
'
' C++
' VB.NET
' C#
' Java
' PHP
' C++
' VB.NET
' C#
' Java
' PHP