التعديل على المثال المرفق لل Scanner

من المنتدى القديم ارفق لكم
مثال للأخ عبد الله الدوسري يقوم بعملية تشغيل السكانر وسحب الاوراق بطريقة احترافية
من الماسح الضوئي ورقة واحدة او مجموعة اوراق .

**مرفق المثال الاصلي برابط اخر الموضوع
المثال يعمل بشكل ممتاز
وقد قمت بحفظ الصور الخارجة من السكانر على الجهاز عن طريق الكود التالي :

PHP كود :

Dim Myemage As RasterImage
Myemage= e.Image   
Myemage.ConvertToGdiPlusImage().Save("D:\100\archive\img1.jpeg") 

اما طلبي هو بانني اريد ان اقوم بعرض الصور من مسار معين في الجهاز الى الlist التي على يمين الفورم .

صورة للتوضيح

تحميل الملف الاصلي للمشروع
شكراً لكم

كود :

Private imageFiles() As String = Nothing

Private imageFileLocation As String = Nothing

كود :

Public Shared Function GetAllImages(imagePath As String) As String()



        Dim imageFileExtension As String = "*.jpg;*.jpeg;*.png;*.bmp;*.tif;*.tiff;*.gif"

        Dim imageFileExtensionPattens() As String = imageFileExtension.Split(";"c)

        Dim imageFiles As List(Of String) = New List(Of String)()

        For Each imageFilter As String In imageFileExtensionPattens



            ' Data to hold names of subfolders to be examined for files.

            Dim foldersStack As New Stack(Of String)(20)

            If Not Directory.Exists(imagePath) Then

                Throw New ArgumentException()

            End If



            foldersStack.Push(imagePath)



            Do While foldersStack.Count > 0

                Dim currentFolder As String = foldersStack.Pop()

                Dim subFolder() As String = Nothing

                Try

                    subFolder = Directory.GetDirectories(currentFolder)

                Catch ex As Exception

                    Continue Do

                End Try



                Try

                    imageFiles.AddRange(Directory.GetFiles(currentFolder, imageFilter))

                Catch ex As Exception

                    Continue Do

                End Try



                For Each str As String In subFolder

                    foldersStack.Push(str)

                Next str



            Loop

        Next

        Return imageFiles.ToArray()

    End Function

كود :

Private Sub GetImageFiles(ByVal imageLocation As String)

        Me.imageFiles = GetAllImages(imageLocation)

        For Each Imagefile As String In imageFiles

            If imageFiles.Length <> 0 Then

                DocsRasterImageList.Items.Add(Imagefile)

            End If

        Next

    End Sub

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

' المكان الموجودة به الصور يجب تحديدة بدقة تامة....يمكنك تغيير اسم الفهرس الي أي اسم تريده

        Me.imageFileLocation = "C:\Dell\A"

        GetImageFiles(imageFileLocation)

    End Sub