<%@ Page Language="VB" %>
Sub CopyFile_Click(sender As Object, e As System.EventArgs)
Try
Dim sourceFile As String = Server.MapPath("Data.txt")
Dim destinationFile As String = Server.MapPath("Datacopy.txt")
System.IO.File.Copy(sourceFile, destinationFile)
Catch Ex As Exception
MessageLabel.Text = Ex.Message
End Try
End Sub
Sub MoveFile_Click(sender As Object, e As System.EventArgs)
Try
Dim sourceFile As String = Server.MapPath("Data.txt")
Dim destinationFile As String = Server.MapPath("Datamove.txt")
System.IO.File.Move(sourceFile, destinationFile)
Catch Ex As Exception
MessageLabel.Text = Ex.Message
End Try
End Sub
Copying or Moving a File
Copy "Data.txt" to "Datacopy.txt"
Move "Data.txt" to "Datamove.txt"