ذخیره عکس

[asun_sh]

درود من میخوام عکس موجود در image1 رو با نام موجود در textbox1 در یک مسیر از قبل تعیین شده ذخیره کنم اما همش با خطا مواجه میشم
ممنون میشم راهنمایی کنید

[Amir Ghasemiyan]

درود دوست عزیز
من کاملترین کدی که میشه نوشت رو تقدیم میکنم. شما با نیاز خودتون تغییرش بدین

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