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


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

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		打开固路径，选择，复制，并打开  发帖心情 Post By：2020/11/23 16:35:00 [只看该作者]

老实，能帮忙看看这个吗？
点击按钮，打开指定路径，然后选择文件，复制到另外一个路径里面，并且打开这个文件？感谢 感谢 

Dim mg As New Merger
mg.SourcePath = "C:\Users\yangwen\Documents\WeChat Files\yangwen3931\FileStorage\File\" '指定数据文件所在目录

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.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

'Forms("采订录入窗口").Controls("WebBrowser1").address =  Tables("采订录入窗口_Table4").Current("采购记录_合同路径")

msgbox("添加成功")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106051 积分：539348 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/23 17:27:00 [只看该作者]


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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/11/24 13:47:00 [只看该作者]

老师，我看了 还只是好像就是怎样的呀，但是打开有不是指定的路径，感谢 感谢 

Dim ex As New Exporter
ex.FilePath = "C:\Users\yangwen\Documents\WeChat Files\yangwen3931\FileStorage\File\" '指定目标文件路径
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106051 积分：539348 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/24 13:52:00 [只看该作者]

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

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/11/24 14:00:00 [只看该作者]

我是想点击按钮，然后对话框就显示的路径就是C:\Users\yangwen\Documents\WeChat Files\yangwen3931\FileStorage\File\
然后我选中里面的文件，并且打开，复制到 FileSys.CopyFile (f, Tables("客户报价表").Current("报价信息_文件路径") & "\" & FileSys.GetName(f), True)里面，
        
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106051 积分：539348 威望：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\" '指定目标文件路径
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/11/24 14:41: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)
        Next
    End If
End If
 
FileIsOpened(FileSys.GetName(f))   打开文件，怎么不对呢，感谢 感谢 

msgbox("添加成功")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106051 积分：539348 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/24 14:57:00 [只看该作者]


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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/11/24 16:18:00 [只看该作者]

能不能在看看嘛？ 实在是搞不定了 感谢 感谢
Dim Proc As New Process '定义一个新的Process
Proc.File = e.FileName '指定要打开的文件
proc.WaitForClose = True '等到关闭进程才能进行后续操作
Proc.Start() '打开文件

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)
        Next
    End If
End If

proc.WaitForClose = True '等到关闭进程才能进行后续操作

msgbox("添加成功")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106051 积分：539348 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/24 16:27:00 [只看该作者]

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

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