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

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

老师，弹出“设备未就绪”。

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