Imports System.IO

Public Class Form1

'Ma braucht Verweis
'den findet man unter COM
'der heißt: "Microsoft Windows Image Acquisition Library v2.0


Public Function scanImage1(ByVal saveImagePath As String)
'Pfad zur Temp Datei des erfassten Bildes
Dim strTempImagePath As String = String.Empty
'Windows GUI zur Interaktion mit dem Gerät
Dim wiaDialog As New WIA.CommonDialog
'Variable für das erfasste Bild
Dim wiaImage As WIA.ImageFile = Nothing
Try
'Aufruf der Windows GUI zur Interaktion mit dem Gerät,
'rückgabe ist das erfasste Bild
' wiaDialog.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, True, True)
wiaImage = wiaDialog.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, , , , True, False, )

Catch ex As Exception
MsgBox("Ein Fehler ist aufgetreten! Überprüfen Sie ob das Gerät Eingeschaltet und angeschlossen ist." & Environment.NewLine & Environment.NewLine & ex.Message)
End Try
If Not wiaImage Is Nothing Then
'Einen zufälligen Tempdateinamen im Temp Verzeichniss erstellen
strTempImagePath = System.IO.Path.Combine(saveImagePath, System.IO.Path.GetRandomFileName() & ".jpg")
'Bild in Temporere Datei Speichern
wiaImage.SaveFile(strTempImagePath)
Else
MsgBox("Es wurde kein Bild erfasst!", MsgBoxStyle.Information, "Information")
End If
Return strTempImagePath
End Function



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sPath As String = TextBox1.Text
scanImage1(sPath)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As New FolderBrowserDialog
a.ShowDialog()
TextBox1.Text = a.SelectedPath
End Sub
End Class