怎么可以自动识别多个文件名，并把文件名加入到表格中

例如，文件夹aa 下面有， 1.jpg， 2.jpg，3.jpg，4.jpg

怎么样才能实现 点击 查找按钮，选择文件夹后。自动把aa文件夹下面的文件名自动加入到表格中，如下图

参考：

http://www.foxtable.com/help/topics/0341.htm

Dim Val As String
For Each File As String In FileSys.GetFiles("C:\\文件夹aa")
    Dim f As Io.FileInfo =   FileSys.GetFileInfo(File)
    Val = Val & "|" & f.Name
Next
Dim Values() As String
Values = Val.split("|")
For Index As Integer = 0 To Values.Length - 1
    Dim r As Row = Tables("表名").AddNew
    r("图片名") = Values(Index)
Next

  这样试试?

这样就好多了。非常感谢啊、

实验过了，非常成功，但是有两个问题

1 （我是用按钮实现的，但是点击按钮后，总是有一两个行是空着的。不知道是什么原因）

2 （怎么可以指定目录，而不是预先指定目录）

谢谢！！

0 To Values.Length - 1

改成 1 To Values.Length - 1  试试.  目录是要指定的.

ok 空行的问题解决了

剩下的就是目录的问题了。我的意思是可不可以绑定到文件管理器， 从文件管理器所选的文件夹里识别文件？谢谢！

Dim pth As String = Tables("XX").Currenrt("存放目录的列名")
For Each File As String In FileSys.GetFiles(pth)
    Dim r As Row = Tables("表名").AddNew
    r("图片名") = File
Next