以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  文件夹的文件名与A表文件名保持一致  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143788)
--  作者：蓝蚂蚁
--  发布时间：2019/12/4 14:42:00
--  文件夹的文件名与A表文件名保持一致
政策文件表的列”文件名称“用来存放一个文件夹（文件夹为：ProjectPath & "AllMyFiles\\法律法规文件\\"）里面所有的文件名，现做一个按钮用来更新政策文件表“文件名称”列中的文件名，使之与文件夹中的文件名保持一致。即文件夹的文件名有增减，则政策文件表中文件名称列中也跟着增减
我的代码是：
Dim Values As new List(Of String)
Dim Value As String
Dim lj As String= ProjectPath & "AllMyFiles\\法律法规文件\\"
For Each f As String In FileSys.GetFiles(lj)
    Values .add(FileSys.GetName(f))
Next
For Each  Value In Values
    Dim dc As DataRow =DataTables("政策文件表").Find("文件名称=\'" & value & "\'")
    If dc Is Nothing Then
        Dim xujh As Row =Tables("政策文件表").AddNew()
        xujh("文件名称")=value
    End If
Next
这代码中政策文件表的文件名称列的记录，只保持文件夹的曾，却不能保持文件夹的减。如何做到增减都保持？
[此贴子已经被作者于2019/12/4 14:43:27编辑过]
--  作者：有点蓝
--  发布时间：2019/12/4 14:47:00
--  
随着数据和文件的增多这种用法是个灾难。建议使用文件监视器处理http://www.foxtable.com/webhelp/topics/1963.htm