主题：批量写入数据问题

有pdf文件几万条,又分成了不同层级的文件夹,存放在一个总文件夹 F:\MAND\下,如何一次性写到表的扩展列中,以便查阅 ,也就是说,能把包含子文件夹下面的文件都能下入表列中

 

 1、设计一个内部函数，名称为lsitfile，代码：

 

Dim pth As String = args(0)
For Each fl As String In filesys.GetFiles(pth)
    output.show(fl)
Next
For Each dr As String In FileSys.GetDirectories(pth)
    Functions.Execute("listfile",dr)
Next

 

2、

Functions.Execute("listfile","c:\data")

 

上述的代码可以在命令窗口列出指定目录下的所有文件，包括子目录下的文件，您可以稍作修改自用。

狐爸，今日台风杜鹃大作，阳台狼藉一片，收拾一下，就开始学习

有搞不定的地方，找狐爸

狐爸：按钮我是这样写的，没有反应

DataTables("表名").Find("[列名] = '" & Functions.Execute("listfile","d:\data") & "'")

该怎么写？

Dim pth As String = args(0)

Dim file As String = args(1)
For Each fl As String In filesys.GetFiles(pth)
    If file = filesys.GetName(fl) Then

        msgbox("找到了 " & fl)

    End If
Next
For Each dr As String In FileSys.GetDirectories(pth)
    Functions.Execute("listfile",dr, file)
Next

 

--------------

 

Functions.Execute("listfile","d:\data", "abcdefg.pdf")

按钮我是这样写的

Dim dlg As new folderbrowserdialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim yj As String = Functions.Execute("listfile","d:\data", "abcdefg.pdf")
   
    Tables("表A").Current("原件") = yj
End If

帮我改正以下

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目26.foxdb

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目26.foxdb