درود من میخوام عکس موجود در image1 رو با نام موجود در textbox1 در یک مسیر از قبل تعیین شده ذخیره کنم اما همش با خطا مواجه میشم
ممنون میشم راهنمایی کنید
درود دوست عزیز
من کاملترین کدی که میشه نوشت رو تقدیم میکنم. شما با نیاز خودتون تغییرش بدین
کد:
Sub AdvancedRenameFile()
Dim FilePath As String
Dim FileName As String
Dim newFileName As String
FilePath = "D:\folder\"
FileName = "Example File.png"
newFileName = "New Example File.png"
On Error Resume Next
Name FilePath & FileName As FilePath & newFileName
If Err.Number <> 0 Then
MsgBox Prompt:="Unable to rename file", Buttons:=vbOK, Title:="Rename file error"
End If
On Error GoTo 0
End Sub
کامنت