试试
If e.Book.TempLate = "111" Then
If e.region = "table_3" Then
If FileSys.FileExists(ProjectPath & "Images\图片2.jpg") Then
FileSys.DeleteFile(ProjectPath & "Images\图片2.jpg",2,2)
End If
If FileSys.FileExists(ProjectPath & "Images\图片1.jpg") Then
FileSys.DeleteFile(ProjectPath & "Images\图片1.jpg",2,2)
End If
If e.DataRow.IsNull("图片") = False Then '图片列不为空
Dim ftp1 As new ftpclient
ftp1.host="172.16.120.41"
ftp1.Account = "admin"
ftp1.password = "qw123"
Dim fls As List(of String) = e.DataRow.Lines("图片")
For i As Integer = 0 To fls.count - 1
Dim file As String = "c:\data\Desert" & i & ".jpg"
If ftp1.Download(fls(i),file) = True Then
system.Threading.Thread.Sleep(50)
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))
bmp.save(ProjectPath & "Images\图片" & i+1 & ".jpg")
bmp.Dispose
End If
Next
End If
End If
End If
加好友 
发短信
Post By：2021/12/26 20:00:00 [只看该作者]
