图片名称一致，为"fl4"，只在后面添加“1”、“2”、“3”....加以区别。有三张图片，格式为jpeg，通过循环语句用下面的代码上传至ftp，其中s是ftp中已经存在的pdf格式文件但只能上传图1和图3，图2传不上去，为什么？
Dim i As Integer
Dim fl5 As String
Dim s8 As String
For i = 1 To 3
fl5 = fl4 & i & ".jpeg"
'msgbox(fl5)
s8 = s.Replace(".pdf",i & ".jpeg")
'msgbox(s3)
If ftp1.Upload(fl5, s8, True) = True Then
Messagebox.show("图片格式的合同上传成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("图片格式的合同上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
i = i + 1
Next
加好友 
发短信
Post By：2019/7/1 15:52:00 [只看该作者]
