主题：如何解决

请各位老师帮忙看看这段代码应怎么改呢。目的就是想把拍照的相片保存在：\\192.168.101.251\共享数据\住宿生信息\学生照片\" & Tables("住宿生信息").Current("姓名") & ".JPG")

它不报错但也不保存怎么办。文件目录是存在的。

Dim c As new camera
Dim pic As WinForm.PictureBox = e.Form.Controls("PicView2")
Dim img As Image
e.Form.TimerEnabled = False
If pic.Image IsNot Nothing
    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)
    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,e.Form.Controls("FileName").Value)     ’这个地方不懂，原来是有一个保存路径，关键是文件名如何设置成
Tables("住宿生信息").Current("姓名") & ".JPG   

 c.Save("\\192.168.101.251\共享数据\住宿生信息\学生照片\" & Tables("住宿生信息").Current("姓名") & ".JPG")     '保存文件不成功

If result = 1
        MessageBox.Show("照片保存为: " & e.Form.Controls("FileName").Value ,"保存成功")
        e.Form.Close()
    Else
        MessageBox.Show("保存失败","失败")
    End If
Else
    MessageBox.Show("请先拍照!","错误")
End If
e.Form.TimerEnabled = True