[Taha Okla]

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

المشكلة موجودة في الكود :

كود :

       Dim fso As Object
       fso = CreateObject("Scripting.FileSystemObject")
       fso.DeleteFolder("C:/aa", True)

حيث أنه بسبب أداة (TwainHandler.vb) تبقي ملفات الصور مرتبطة بها وخاصة آخر صورة تم سحبها بها
--
الحل أن تصنع مجلدات فرعية ضمن المجلد  (C:/aa)
مع كل عملية سكان جديدة تصنع مجلد جديد وتجري عليه كافة العمليات. 

الجديد هو : 
قم بالتعريف عن المتغيرات التالية في القسم العام :

كود :

Dim Path As String = "C:\"      '======>>>>>>== جديد
   Dim intPath1 As Integer = 0     '======>>>>>>== جديد

كود السكانر لديك يصبح بالشكل التالي :

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       On Error GoTo 123
       Directory.Delete("C:\aa\", True)
123:

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

       intPath1 = intPath1 + 1

       Dim filename As String
       My.Computer.FileSystem.CreateDirectory("C:\aa\" & intPath1)

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

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



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



       If Not bwMakePdf.IsBusy Then
           ' ''Create and fill up WorkerParameters object.
           Dim info As New WorkerParameters
           With info
               .InputDirectory = txtSource.Text
               .OutputFile = txtDestination.Text
           End With
           ' ''Start thread using "info" object as Argument
           bwMakePdf.RunWorkerAsync(info)

           cmdProcess.Enabled = False
           cmdCancel.Enabled = True
           prgProcess.Value = 0
           lblPercent.Text = "0%"
       Else
           MsgBox("Thread is busy.", vbExclamation, "Busy.")
       End If


       TextBox1.Text = "صورة عذر طبي لموظف"

   End Sub