此主题相关图片如下:微信图片_20230928170846.png
代码粘不上见上图
If filesys.FileExists(path & dwsl(i) & "\" & ndsl(i1) & "\" & ndyf(i2) & "\" & pzsl(i3) & "\" & dr("ZWPZFG_tpsm")) = False Then '如果已存在则跳过
Dim imageByte() As Byte = dr("ZWPZFG_FGTP") '查询数据,并存入字节数组
Dim ms As New IO.MemoryStream(imageByte) '将字节数组转换为二进制流
Dim image As Image = Image.FromStream(ms) '将二进制流转换为图片
Dim bmp As New bitmap(image)
bmp.save(path & dwsl(i) & "\" & ndsl(i1) & "\" & ndyf(i2) & "\" & pzsl(i3) & "\" & dr("ZWPZFG_tpsm"))
End If
以上代码如果是二进制保存的是图片可以正常执行,如果保存的是WORD或者其他的则会报错,请问老师应该怎么改进一下?
[此贴子已经被作者于2023/9/28 17:09:36编辑过]