PDA

View Full Version : سوال: تغیر دادن نام یک فایل



mahdi.fa
جمعه 08 اردیبهشت 1391, 12:11 عصر
سلام دوستان من با چه کدی می تونم نام فایلی که داخل یک پوشه که در درایو سیستم هستش را نامش را عوض کنم ممنون اگه لطف کنید و پاسخ این سوال را بدید

بهروز عباسی
جمعه 08 اردیبهشت 1391, 14:10 عصر
Rem coded by : behrooz abassi
Rem http://www.programming-co.com/
Private Sub Rename(ByVal strOldfileName As String, ByVal strNewfileName As String)
On Error Resume Next
Name strOldfileName As strNewfileName
Kill strOldfileName
End Sub
Rem test
Private Sub Command1_Click()
Rename "D:\Programming\C++\THE MATRIX NEO A.CPP", "D:\Programming\C++\THE MATRIX NEO AB.CPP"
End Sub

بهروز عباسی
جمعه 08 اردیبهشت 1391, 14:15 عصر
راستی

درایو سیستم
اگه منظورت مسیر نصب ویندوزه
Private Sub cmdTest_Click()
MsgBox Environ$("windir")
End Sub