[صالح عبدالله]

السلام  عليكم ورحمة الله وبركاته 
 اريد فقط التعديل على الكود التالي حيث انه يأخذ الضورة من السكانر ثم يخزنها في المجلد الموضح في الكود بحيث يكون File name  يكون مصدره picturebox1  وليس السكانر  ثم يتم بعد ذلك الحفظ على هيئة PDF  ( السطر المطلوب للتعديل عليه هو السطر باللون الاحمر  ) شاكراً لكم تعاونكم 

      My.Computer.FileSystem.CreateDirectory("C:\aa_merge")

            Dim intPath1 As Integer = 0

            intPath1 = intPath1 + 1

            Dim filename As String

            My.Computer.FileSystem.CreateDirectory("C:\aa_merge\" & intPath1)

            filename = TwainHandler.ScanIt("C:\aa_merge\" & intPath1)

            PictureBox1.Image = Image.FromFile("C:\aa_merge\" & intPath1 & "\" + filename)

            txtSource.Text = "C:\aa_merge\" & intPath1

            txtDestination.Text = "C:\aa_merge\" & intPath1 & "\save.pdf"