Imports System.IO
Module Module1
Sub Main()
Dim s As String
Try
If File.Exists("d:\\data.bin") = True Then
File.Move("d:\\data.bin", "d:\\data_new_name.bin")
Console.WriteLine("rename success")
End If
Catch iex As IOException
Console.WriteLine(iex.Message)
End Try
End Sub
'run:
'
'rename success
End Module