تغيير پسوند فايل با استفاده از ويژوال بيسيك

سلام دوستان اگه كسي مي دونه چطوري مي‌شه پسوند فايل‌هارو در ويژوال بيسيك چطوري عوض كرد خواهشا كمك كنه
ممنون

سلام
منظورتان چیست؟ صرفاَ تغییر نام فایل را میگویید یا منظورتان تغییر فرمت کلی فایل است؟ Vb6 یا Vb8 ؟

ساده ترین راه تغییر نام فایل اینه:

کد:

---

Dim FileName As String
Dim NewFileName As String

FileName = "C:\MyFile.txt"
NewFileName = "C:\Text1.txt"
Name FileName As NewFileName

---

برای تغییر پسوند به جای نام فایل فقط پسوند رو تو خط 4 تغییر بده.

یه راه دیگه هم استفاده از FileSystemObject که باید برای استفاده از اون Microsoft scripting runtime رو به Refrence هات اضافه کنی:

کد:

---

Dim FSO As New Scripting.FileSystemObject
fso.MoveFile "d:\dummytest.txt", "d:\dummytest2.txt"

---