主题：二进制附件怎么直接另存为？

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "word文件|*.doc" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

     if Tables("员工").Current Is Nothing Then

                Return

     end if

     Dim dr As DataRow = Tables("员工").Current.DataRow

    dr.SQLLoadFile("附件",dlg.FileName)
End If