主题：[求助]文件名集合赋值指定列

我先清除列内容，然后把指定目录的文件名赋值给表A的“文件名”列，怎样写：从第一行开始写入，行不足时自动增加行。

谢谢！

For Each dr As DataRow In DataTables("表A").DataRows   '清除列内容
    dr("文件名") = Nothing
Next

For Each file As String In FileSys.GetFiles("d:\")    '打开指定目录

    Dim idx = file.LastIndexOf(".")    '去掉文件后缀
    If idx >= 0 Then
        file = file.SubString(0, idx)
    End If
   
    Dim fileInfo As New System.IO.FileInfo(file)
    Dim fdr As DataRow = DataTables("表A").Find("文件名 = '" & fileInfo.Name & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表A").AddNew   '添加行
        fdr("文件名") = fileInfo.Name
    End If
Next

附件：

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

点击浏览该文件:目录文件信息.table