ذخیره عکس

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • asun_sh
    • 2024/09/08
    • 1

    ذخیره عکس

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

    • 2013/09/20
    • 4528
    • 100.00

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

    کد:
    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

    کامنت

    چند لحظه..