主题：怎么可以自动识别多个文件名？

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

  这样试试?

0 To Values.Length - 1

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