我先清除列内容，然后把指定目录的文件名赋值给表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

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

\'Dim dlg As New FolderBrowserDialog   \'打开目录
\'If dlg.ShowDialog = DialogResult.Ok Then
\'For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
For Each file As String In FileSys.GetFiles("g:\\")    \'打开指定目录
    file = FileSys.GetName(file)
    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("文件名 is null")
    If fdr Is Nothing Then
        fdr = DataTables("表A").AddNew   \'添加行
    End If
    fdr("文件名") = file
    \'fdr("创建时间") = fileInfo.CreationTime
    \'fdr("修改时间") = fileInfo.LastWriteTime
Next
\'End If