تغییر نام یک فایل rename

[arastooms 1,046]

سلام من برای تغیر نام یک فایل حجیم در برنامه از ساب زیر استفاده میکنم که سایت مرجع کعرفی کرده بودند
می خاستم بدونم روش ساده تر و یا کتابخوه ای با این امکان هست که ساب اضافه نکنم و دستور یکی دو خطی مشکل رو حل کنم 
با تشکر 
برای مثال 

 

RenameFile(File.DirInternal,"aa.mp3",File.DirInternal,"bbb.mp3")

Sub RenameFile(SrcDir As String, SrcFilename As String, DestDir As String, DestFilename As String) As Boolean
    Dim R As Reflector, NewObj As Object, New As String , Old As String 
   If SrcFilename=Null Or DestFilename=Null Or SrcDir=Null Or DestDir=Null Then Return False
   If File.Exists(SrcDir,SrcFilename) And Not(File.Exists(DestDir,DestFilename)) Then    
      New=File.Combine(DestDir,DestFilename)
      Old=File.Combine(SrcDir,SrcFilename)
      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
   End If
   Return False
End Sub

 

[مجید آرتا 5,874]

سلام

ارسطو جان کدش زیاد که نیست، فقط اومده کد رو هندل کرده که یه وقت مقدار Null و خطایی رخ نده.وگرنه دو سه خط کد هم نیست عمل Rename.