Saving images into folders based on their barcode

1
'We assume that GdPicture has been correctly installed and unlocked.
2
Dim oGdPictureImaging As New GdPictureImaging()
3
Dim filePath As [String] = "Pictures\barcodes"
4
Dim distPath As [String] = "Pictures\barcodeTypes\"
5
Dim allImages As [String]() = Directory.GetFiles(filePath)
6
Dim bcfound As Integer = 0
7
Dim m_Image As Integer = 0
8
Dim status As GdPictureStatus = GdPictureStatus.OK
9
For Each imagePath As String In allImages
10
    bcfound = 0
11
    m_Image = oGdPictureImaging.CreateGdPictureImageFromFile(imagePath)
12
    If oGdPictureImaging.GetStat() <> GdPictureStatus.OK Then
13
        MessageBox.Show("Error: " + oGdPictureImaging.GetStat().ToString(), "Barcode Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
14
        Exit For
15
    End If
16
    status = oGdPictureImaging.Barcode1DReaderDoScan(m_Image, Barcode1DReaderScanMode.BestSpeed)
17
    If status <> GdPictureStatus.OK Then
18
        MessageBox.Show("Error: " + status.ToString(), "Barcode Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
19
        oGdPictureImaging.ReleaseGdPictureImage(m_Image)
20
        Exit For
21
    End If
22
    bcfound = oGdPictureImaging.Barcode1DReaderGetBarcodeCount()
23
    If bcfound > 0 Then
24
        For i As Integer = 1 To bcfound
25
            Dim barcodeType As [String] = oGdPictureImaging.Barcode1DReaderGetBarcodeType(i).ToString()
26
            Dim folderName As [String] = [String].Concat(barcodeType, "\")
27
            Dim imageName As [String] = [String].Concat(i.ToString(), ".tif")
28
            Dim completePath As [String] = [String].Concat(Path.Combine(distPath, folderName), imageName)
29
            status = oGdPictureImaging.SaveAsTIFF(m_Image, completePath, TiffCompression.TiffCompressionAUTO)
30
            If status <> GdPictureStatus.OK Then
31
                MessageBox.Show("Error: " + status.ToString(), "Barcode Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
32
                Exit For
33
            End If
34
        Next
35
    End If
36
    oGdPictureImaging.ReleaseGdPictureImage(m_Image)
37
    If status <> GdPictureStatus.OK Then
38
        Exit For
39
    End If
40
Next
41
oGdPictureImaging.Dispose()