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:\\test\\data.bin")
Console.WriteLine("move success")
End If
Catch iex As IOException
Console.WriteLine(iex.Message)
End Try
End Sub
'run:
'
'move success
End Module