如何将指定目录下的文件地址写入表中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将指定目录下的文件地址写入表中

共有2395人关注过本帖树形打印复制链接主题：如何将指定目录下的文件地址写入表中

天若千颖

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

如何将指定目录下的文件地址写入表中 发帖心情

Post By：2016/7/3 0:10:00 [显示全部帖子]

各位老师，

我想通过指定一个目录，然后自动把这个目录下的文件地址写入表中，类似于http://foxtable.com/bbs/dispbbs.asp?BoardID=5&ID=86083&replyID=&skin=1的功能。

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160703000049.jpg

这样对于大量的文件导入就不用一个一个手动添加了。

Dim dlg As New FolderBrowserDialog '选择目录

Dim Folder2 As String
dlg.Description ="选择导入目录"

If dlg.ShowDialog = DialogResult.Ok Then
Folder2 = dlg.SelectedPath

？？？？？？？？
End If

如何把这个目录下的文件的路劲导入表“文件存放表”中的“文件路径”这一列中呢，存放后可以直接在这里打开原文件？

天若千颖

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2016/7/4 12:50:00 [显示全部帖子]

谢谢红袍老师。

2楼的代码得到的是文件的绝对路径，表格中填写的也是绝对路径，怎么像1楼图片中的表格那样，填写相对路径，只是一个文件名和后缀，但是点击可以打开文件呢。

天若千颖

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2016/7/4 14:47:00 [显示全部帖子]

恩，放不同的文件。如果这里是绝对路径，同时这一列又有相对路径的文件，如何通过表的Click事件直接打开呢？

这是相对路径的打开方式：

If e.Col.Name = "文件名及链接" Then

If e.Row.IsNull("文件名及链接") = False Then

Dim path As String = e.Col.DataCol.DefaultFolder

If path = Nothing Then

path = ProjectPath & "attachments/"

End If

path = path & e.Row("文件名及链接")

Dim proc As new Process

proc.File = path

proc.Start

End If

主题：如何将指定目录下的文件地址写入表中