主题：[求助]另存为

If Tables("通讯录").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("通讯录").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
    dr.SQLInsertFile("个人电子信息_照片",dlg.FileName) '插入文件
    Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
    pic.Image = GetImage(dlg.FileName)

    FileSys.CopyFile(dlg.FileName, "h:\二进制列\mytest.txt",True)
End If

FileSys.CopyFile(dlg.FileName, "h:\二进制列\" & FileSys.GetName(dlg.fileName),True)