主题：[求助]请问二进制文件字段应该怎么转出到文件？

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

谢谢蓝版，搞定了。