Scanning Documents

[gator9]

I am stumped and really need help. Below is the code that I am using to call the scanning software, and those of you that have XP I found this software free for download. Just follow the instructions. Windows Image Acquisition Automation Layer at

http://www.mvps.org/vbnet/index.html?code/imageapi/mswaidll.htm

Ok back to what I am trying to do. The code below will call my scanner and I can scan the document I want, however, I can not find where it has scanned it to. With that said, I have a FileList field. What I would like to do is open the client form press the command button on this form have the scanner activate and scan the document give the document an ID number, copy the file path into the FileList field all in one click. Is this doable?

Private Sub Command127_Click()
Dim Img 'As ImageFile
Dim p 'As Property

Set Img = CommonDialog8.ShowAcquireImage

For Each p In Img.Properties
Dim s 'As String

s = p.Name & "(" & p.PropertyID & ") = "
If p.IsVector Then
s = s & "[vector data not emitted]"
ElseIf p.Type = RationalImagePropertyType Then
s = s & p.Value.Numerator & "/" & p.Value.Denominator
ElseIf p.Type = StringImagePropertyType Then
s = s & """" & p.Value & """"
Else
s = s & p.Value
End If

MsgBox s
Next

End Sub


Sincerely,

Charles

http://grahamenterprises.net

 

[willir]

Charles

You may want to look at the default directory of the scanner, or look at the scanner configuration.

Some of the scanners I have used seem to have a mind of their own.

Richard

 

[gator9]

Its defaulting to my desktop so it must be not saving it at all.

Sincerely,

Charles

http://grahamenterprises.net