我已经做好imgscan.ocx的单图片扫描,可多图片扫描我查了网上的方法有些疑问
Dim imagename As String
imagename = Format(Now, "yyyyMMddHHmm") & ".tif"
Dim ll_rtn As Integer
 ll_rtn = ImgScan1.OpenScanner
 If ll_rtn = 0 Then
   If ImgScan1.ScannerAvailable Then
                   ImgScan1.FileType = 1
                   ImgScan1.ShowSetupBeforeScan = True
                   ImgScan1.ScanTo = 2 '保存为文件
                   'ImgScan1.Image = "c:\" & imagename
                    ImgScan1.Image = "c:\test*"
                  ImgScan1.OpenScanner
                   ImgScan1.StartScan  '开始扫描图象                   ImgScan1.CloseScanner  '关闭扫描仪
                                      'Inet1.Execute ("put " & imagename)
                   Else
                   MsgBox ("没有选择扫描仪")
   End If
   Else
   MsgBox ("扫描仪无效!")
 End If
其中ImgScan1.Image = "c:\test*" 只要加上*号“ImgScan1.StartScan  '开始扫描图象
”就会出错 还有就是如果多张图片扫描我如何获得扫描后的文件名?我希望把扫描后的多张图片FTP到服务器上。然后将扫描后的文件名返回,希望大家指点我一下,谢谢。