打开固路径，选择，复制，并打开 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2259人关注过本帖树形打印复制链接主题：打开固路径，选择，复制，并打开

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：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)

End If

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

msgbox("添加成功")

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：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\" '指定目标文件路径

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：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)里面，

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：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)

End If

FileIsOpened(FileSys.GetName(f)) 打开文件，怎么不对呢，感谢感谢

msgbox("添加成功")

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：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)

End If

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

msgbox("添加成功")

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2020/11/24 16:35: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)

End If

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

Proc.File = e.FileName '指定要打开的文件

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

Proc.Start() '打开文件

End If

msgbox("添加成功")

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

主题：打开固路径，选择，复制，并打开