复制指定文件到指定文件夹内 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复制指定文件到指定文件夹内

共有2054人关注过本帖树形打印复制链接主题：复制指定文件到指定文件夹内

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/26 12:41:00 [显示全部帖子]

参考代码

http://www.foxtable.com/webhelp/scr/0343.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/27 12:57:00 [显示全部帖子]

FileSys.CopyDirectory ("C:\TestFiles", Tables("项目档案").Current("项目档案_文件路径") , True)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/30 23:17:00 [显示全部帖子]

FileSys.CopyDirectory ("C:\TestFiles", Tables("计划表窗口_Table5").Current("项目档案_文件路径"), True)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/1 16:24:00 [显示全部帖子]

Dim r As Row = Tables("计划表窗口_Table5").Current
If r IsNot Nothing Then
    Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    dlg.Filter= "文档|*.doc;*.txt;*.xls;*.BMP;*.JPG;*.JPEG;*.PNG;*.GIF" '设置筛选器
    dlg.MultiSelect = True
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        For Each f As String In dlg.FileNames
            FileSys.CopyFile (f, Tables("项目档案").Current("项目档案_文件路径") & "\" & FileSys.GetName(f), True)
        Next
    End If
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/1 18:07:00 [显示全部帖子]

Dim file As String = Tables("财务汇总窗口_Table22").Current("项目档案_文件路径")

If file <> "" Then

Dim Proc As New Process '定义一个新的Process

Proc.File = file

Proc.Start()

End If

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

主题：复制指定文件到指定文件夹内