If File.Exists(DBPath & SrcDir,SrcFilename) And Not(File.Exists(DBPath & DestDir,DestFilename)) Then
New=File.Combine(DBPath & DestDir,DestFilename )
Log (New)
Old=File.Combine(DBPath & SrcDir,SrcFilename)
Log(Old)
If Not(New = Old) Then
NewObj=R.CreateObject2("java.io.File",Array As Object(New),Array As String("java.lang.String"))
R.Target=R.CreateObject2("java.io.File",Array As Object(Old),Array As String("java.lang.String"))
Return R.RunMethod4("renameTo",Array As Object(NewObj),Array As String("java.io.File"))
End If