رفتن به مطلب
  • 0

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


arastooms

سوال

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

 

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...