- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 批量写入数据问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75099)
-- 发布时间：2015/9/26 22:20:00
-- 批量写入数据问题
有pdf文件几万条,又分成了不同层级的文件夹,存放在一个总文件夹 F:\\MAND\\下,如何一次性写到表的扩展列中,以便查阅 ,也就是说,能把包含子文件夹下面的文件都能下入表列中
-- 发布时间：2015/9/26 22:23:00
--
-- 发布时间：2015/9/28 9:01:00
--
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")
上述的代码可以在命令窗口列出指定目录下的所有文件，包括子目录下的文件，您可以稍作修改自用。
-- 发布时间：2015/9/29 9:31:00
--
狐爸，今日台风杜鹃大作，阳台狼藉一片，收拾一下，就开始学习
有搞不定的地方，找狐爸
-- 发布时间：2015/9/29 13:51:00
--
狐爸：按钮我是这样写的，没有反应
DataTables("表名").Find("[列名] = \'" & Functions.Execute("listfile","d:\\data") & "\'")
该怎么写？
-- 发布时间：2015/9/29 14:19:00
--
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")
-- 发布时间：2015/9/29 16:49:00
--
按钮我是这样写的
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 |
-- 发布时间：2015/9/29 17:13:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目26.foxdb |