[حل شده] تغییر نام فایل

[sunstar]

سلام علیکم
فرض کنید در درایو C یک فایل تصویری با نام متغیر وفرمت JPG داریم.میخواهیم کدی بنویسیم که نام جدید را از طریق Inputbox از کاربر اخذ و جایگزین نام قبلی فایل مذکور کند.
اگه راهنمایی کنید ممنون میشم.

[M_ExceL]

سلام علیکم
فرض کنید در درایو C یک فایل تصویری با نام متغیر وفرمت JPG داریم.میخواهیم کدی بنویسیم که نام جدید را از طریق Inputbox از کاربر اخذ و جایگزین نام قبلی فایل مذکور کند.
اگه راهنمایی کنید ممنون میشم.

سلام،

Sub M_excel()

Dim mtn, mydir, oname, nname As String

''>>> متن شما
    mtn = ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1580) _
    & ChrW(1583) & ChrW(1740) & ChrW(1583) & ChrW(32) & ChrW(1585) & _
    ChrW(1575) & ChrW(32) & ChrW(1608) & ChrW(1575) & ChrW(1585) & _
    ChrW(1583) & ChrW(32) & ChrW(1705) & ChrW(1606) & ChrW(1740) & ChrW(1583)

''>>> مسیر فایل
    mydir = ThisWorkbook.Path & "\"

''>>> نام فایل
    oname = Dir(ThisWorkbook.Path & "\" & "*.jpg")

''>>> نام جدید فایل
    nname = InputBox(mtn) & ".jpg"

''>>> تغییر نام
    Name mydir & oname As mydir & nname
    
End Sub

[sunstar]

استادممنونم