主题：录入文件名

Dim fbd As new FolderBrowserDialog

If fbd.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim r As Row = Tables("表A").Current
    If r.IsNull("第一列") Then
        r("第一列") = FileSys.GetName(fbd.SelectedPath)
    Else
        r("第一列") &= "|" & FileSys.GetName(fbd.SelectedPath)
    End If
End If