Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打开固路径，选择，复制，并打开


  共有2261人关注过本帖树形打印复制链接

主题：打开固路径，选择，复制，并打开
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/23 17:27:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/24 13:52:00 [显示全部帖子]

打开文件还是导入文件？麻烦认真看看帮助好吗

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/24 14:02:00 [显示全部帖子]

麻烦好好看看帮助：http://www.foxtable.com/webhelp/topics/0328.htm

Dim dlg As New OpenFileDialog
dlg.InitialDirectory = "C:\Users\yangwen\Documents\WeChat Files\yangwen3931\FileStorage\File\" '指定目标文件路径
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/24 14:57:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/24 16:27:00 [显示全部帖子]

要打开的是复制前的文件？还是复制后的文件？想想在哪个代码后才能获取到文件名，打开文件的代码应该放在哪里？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/24 16:38:00 [显示全部帖子]

Dim r As Row = Tables("客户报价表").Current
If r IsNot Nothing Then
    Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    dlg.Filter= "文档|*.doc;*.txt;*.xls;*.xlsx;*.BMP;*.JPG;*.JPEG;*.PNG;*.GIF;*.PDF;*.eml" '设置筛选器
    dlg.InitialDirectory = "C:\Users\yangwen\Documents\WeChat Files\yangwen3931\FileStorage\File\" '指定目标文件路径
    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)
    Dim Proc As New Process '定义一个新的Process
    Proc.File = Tables("客户报价表").Current("报价信息_文件路径") & "\" & FileSys.GetName(f) '指定要打开的文件
    Proc.Start() '打开文件
        Next
    End If

End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 5 次数据查询