主题：如何用代码向图片列中添加多个图片？(已解决)

不会意思没有看到您的回复，图片我是用摄像头现拍的，命名是默认的，想拍一个就自动添加到当前的图片列，所以图片名称无法确定，需要获取新增的图片名称，请老大看看有办法解决吗？

可能是我表述的不正确，现在我从新表述一下

我在开发项目的根目录下建了个“照片”文件夹，图片我是用摄像头拍的，保存路径定义到“照片”文件夹，现在想实现的功能就是拍一个照片就自动添加到当前的图片列，但是命名是默认的，所以图片名称无法确定，需要获取新增的图片名称，请老大看看有办法解决吗？

参考这里：
http://www.foxtable.com/help/topics/1963.htm

 
假定扫描生成的文件，在“c:\Data”目录

在AfterOpernProject事件代码
 
With FileWatcher
   .Path = "c:\Data"
   .Delay = 1000
End With

设置FileCreated事件代码：

Messagebox.show(e.Name)

就能显示扫描生成的图片的文件名了。

我把代码改了下，

Dim r As Row = Tables("表A").Current
Dim s As String = e.Name
If r.isnull("图片") Then
    r("图片") = s
    r("名称") = s
Else
    Tables("表A").AddNew
    Dim d As Row = Tables("表A").Current
    d("图片") = s
    d("名称") = s
End If

现在名称列可以自动生成，但是名称后面有个.jpg.请问下怎么去掉？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

s= s.substring(0, s.indexof("."))

r("图片") = s
r("名称") = s

谢谢，这么简单啊，我写了一大堆才弄出来。

Dim r As Row = Tables("产品").Current
Dim s As String = e.Name
Dim a As String = s.TrimEnd("G","P","J",".","g","p","j")
If r.isnull("图片") Then
    r("图片") = s
    r("花色") = a
Else
    Tables("产品").AddNew
    Dim d As Row = Tables("产品").Current
    d("图片") = s
    d("花色") = a
 End If