تغییر دادن نام فایل

[Amiroo 10]

با سلام و خسته نباشید خدمت اساتید

بنده از طریق File.copy یک فایل ویدئو رو ازDirAssets به DirRootExternal کپی کردم.

حالا بعد از کپی شدن ویدئو چطور میتونم اسم فایل رو عوض کنم.

اگر کمک کنید ممنون می شم.

با تشکر.

[امین شاهدی 5,773]

از این ساب استفاده کنین : 

Sub RenameFile(OriginalFileName As String, NewFileName As String) As Boolean
   Dim Result As Int
   Dim StdOut, StdErr As StringBuilder
   StdOut.Initialize
   StdErr.Initialize
   Dim Ph As Phone
   Result = Ph.Shell("mv " & OriginalFileName & " " & NewFileName, Null,  StdOut, StdErr)
   If Result = 0 Then
      Return True
   Else
      Return False
   End If
End Sub

برای مثال اینجوری : 

RenameFile("/mnt/sdcard/Movies/Monsters_HQ.mp4", "/mnt/sdcard/Movies/M_HQ.mp4")

[مهدی ایزدی 9,203]

درود

شما میتونید مجددا از کد File.Copy استفاده کنید و این بار نام جدید فایل رو وارد کنید

سپس از File.Delete برای حذف فایل قبلی استفاده کنید

	File.Copy(File.DirRootExternal,"oldname.mp4",File.DirRootExternal,"newName.mp4")
	File.Delete(File.DirRootExternal,"oldname.mp4")

[Amiroo 10]

با تشکر از پاسخ سریعتون.

با توجه به بالا بودن حجم فایل ویدئو، خیلی طول می کشه که مجددا فایل کپی بشه و زمان بر هست.

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

خیلی جالبه که کاره ساده Rename کردن رو به سادگی نمیشه انجام داد !!!!

[Amiroo 10]

از همه شما ممنونم.

کدها به درستی کار کردند.

سپاس.

   

[پژمان نیکروان 6,055]

درکامل کردن فرمایش آقا امین بگم که وقتی اون ساب رو ایجاد کردید میتونید به این صورت هم rename رو انجام بدید:

RenameFile(File.Combine(File.DirRootExternal,"oldFile.mp4"), File.Combine(File.DirRootExternal,"newFile.mp4"))

اینجوری ادرس دهی فکر کنم راحت تر باشه ، بصورت /mtn/sdcard تست کردم عمل نکرد.