请看代码：使用KODAK控件，可以扫描，但为什么不能保存到文件？

Question

Private Function ScanTheImage(ByVal TheImageFile As String) As Boolean
  Dim ReturnValue As Long
  Dim TestString As String
  If ImgScan1.ScannerAvailable Then
    ReturnValue = ImgScan1.OpenScanner()
    ImgScan1.PageOption = 2
    ImgScan1.FileType = 3
    ImgScan1.PageType = 1
    ImgScan1.CompressionType = 4
    ImgScan1.CompressionInfo = 1
    ImgScan1.ScanTo = 2 '保存为文件
    ImgScan1.Image = TheImageFile '图像将被保存
    ImgScan1.ShowSetupBeforeScan = True
    ImgScan1.MultiPage = True
    ReturnValue = ImgScan1.StartScan()
    DoEvents
    ImgScan1.CloseScanner
    TestString = Dir(TheImageFile)
    If TestString <> "" Then
      ScanTheImage = True
    End If
  Else
    MsgBox "扫描设备尚不可用"
    Exit Function
  End If
End FunctionPrivate Sub Command1_Click()
ScanTheImage ("d:\aab.bmp")
End Sub

Answer 1

以上代码也是来自CSDN，第一次使用时没有问题，可以保存到文件。
但接下来就只能扫描但不能保存到文件了，更换取文件名也没用。期待高手解答！