例如:
For Each File As String In FileSys.GetFiles("C:\data") Dim r As DataRow = DataTables("表A").AddNew() r("第一列") = FileSys.GetName(File)Next