تغيير مسار حفظ الصورة - ارجو الدخول ضروري

السلام عليكم ورحمة الله وبركاته

ابغى أغير مسار حفظ الصورة في الكود هذا ..

يعني بدل ما تنحفظ في مجلد البرنامج نفسة ابغاها تنحفظ في مجلد خاص إسمه Pic

Dim Ret As Long, PictureFile As String

PictureFile = mypathofdb() & Me.t3 & "image.jpg"


Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile)

If Ret = 0 Then

Me.pic_path = PictureFile
Me.pic.Picture = Me.pic_path
Else
Kill PictureFile
MsgBox "فشلت عملية المسح الضوئي", vbCritical, "تحذير"
End If

أتمنى أحد يساعدني ارجوكم

تحياتي لكم