老师，下面代码是在二进制列添加图片。求，我要彻底删除图片（包括文件夹中的图片）谢谢老师了。
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:\蓝峰\Attachments\个人证件\证件照\" & FileSys.GetName(dlg.fileName),True)
End If
[此贴子已经被作者于2019/11/30 8:17:49编辑过]
加好友 
发短信
Post By：2019/11/30 8:17:00 [只看该作者]
