وعليكم السلام ورحمة الله وبركاته
المشكلة موجودة في الكود :
كود :
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
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».