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

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

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

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

Dim dlg As New FolderBrowserDialog '选择目录
dlg.Description ="选择导入目录"

If dlg.ShowDialog = DialogResult.Ok Then
    For Each f As String In FileSys.GetFiles(dlg.SelectedPath)
        Dim ndr As DataRow = DataTables("表A").addnew
        ndr("第三列") = f
    Next
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

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

1、这一列的存放路径如果都是同一个文件夹的话，可以指定存放路径

http://www.foxtable.com/help/topics/2043.htm

2、如果是存放不同文件夹文件的话，你肯定要用绝对路径存放信息。你可以去编写drawcell事件，只显示名称不就好了？

http://www.foxtable.com/help/topics/2262.htm

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

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

[此贴子已经被作者于2016/7/4 14:56:30编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

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

If e.Col.Name = "文件名及链接" Then
    If e.Row.IsNull("文件名及链接") = False Then
        Dim path As String = e.Row("文件名及链接")
        If FileSys.FileExists(path) = False Then
            path = e.Col.DataCol.DefaultFolder
            If path = Nothing Then
                path = ProjectPath & "attachments/"
            End If
            path = path & e.Row("文件名及链接")
        End If
        Dim proc As new Process
        proc.File = path
        proc.Start
    End If
End If

下一主题 >> << 上一主题

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