在调用ijl10.dll的时候出现Run-time error '26001':Failed to save to JPG -10，是怎么回事呢？

Question

代码如下：Public Sub SaveAsPic(ii As String)
    Call BitBlt(Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, vbSrcCopy)
    Picture2.Picture = Picture2.Image
    ''ii = ii
    If Picture2.Picture <> 0 Then
       Set SaveJpg1.Picture = Picture2.Picture
       SaveJpg1.JpegFileName = ii
       SaveJpg1.Quanlity = 90
       SaveJpg1.SaveJpeg
        'SavePicture Picture2.Picture, ii
    End If
End Sub
，在别的机可以，在其中一台新安装的xp里的时候就出现如下错误：
---------------------------
Run-time error '26001':Failed to save to JPG -10
---------------------------

Answer 1

我是用setup Factory发布打包的。
现在初步问题已经找到，应该是       SaveJpg1.JpegFileName = ii '<<<<这里的文件名太长了(超过255个字符)，就会出现这个错误
       SaveJpg1.Quanlity = 90
       SaveJpg1.SaveJpeg
不知道是不是这个问题