تغیر پسوند فایل ها

[rezapassword]

سلام دوستان دوستان یک کد میخوام که بشه باهاش فرمت فایل ها رو عوض کنم شما برای مثال یه کد به من بدید که فرمت GIf رو به PNG تبدیل کنه تا روشش رو یاد بگیرم در ضمن لطفا کد ها رو کامل بزارید بفهمم چی میشه ممنون

[mostafaaa]

سلام دوست من

Public Sub ImageConvertor(ByVal Format As Imaging.ImageFormat, _
ByVal SourcePath As String, _
ByVal DestinationPath As String)
Dim Bit As New Bitmap(SourcePath)
Bit.Save(DestinationPath, Format)
End Sub

در ضمن تغییر پسوند با تغییر فرمت فرق میکنه!! صرف تغیر پسوند یه فایل فرمت اون عوض نمیشه!

[rezapassword]

سلام مصتفا جان
منم میخوام پسنود عوض بشه نه فرمت مثلا عکس
ببین مثلا فایل avi بشه تکسک و دوباره تکس بشه avi
من گفتم بلند نیستم
به اصرار یک دوسته

[mostafaaa]

سلام مصتفا جان
منم میخوام پسنود عوض بشه نه فرمت مثلا عکس
ببین مثلا فایل avi بشه تکسک و دوباره تکس بشه avi
من گفتم بلند نیستم
به اصرار یک دوسته
سلام

Public Sub ChangeFileExtension(ByVal FilePath As String, ByVal NewExtension As String)
Dim Name As String = IO.Path.GetFileNameWithoutExtension(FilePath)
My.Computer.FileSystem.RenameFile(FilePath, Name & "." & NewExtension)
End Sub

[rezapassword]

مصتفا جان زحمتی چند
لطفا طریقه استفاده رو هم بگو
دستت درد نکنه

[mostafaaa]

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


ChangeFileExtension("D:\test.avi","txt")