此主题相关图片如下：微信图片_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或者其他的则会报错，请问老师应该怎么改进一下？

谢谢蓝版，搞定了。