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

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:\")    '打开指定目录