| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 打开固路径，选择，复制，并打开 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158540) |
| -- 作者：yangwenghd -- 发布时间：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("添加成功")
|
| -- 作者：有点蓝 -- 发布时间：2020/11/23 17:27:00 -- 打开文件参考：http://www.foxtable.com/webhelp/topics/0353.htm |
| -- 作者：yangwenghd -- 发布时间：2020/11/24 13:47:00 -- 老师，我看了 还只是好像就是怎样的呀，但是打开有不是指定的路径，感谢 感谢 Dim ex As New Exporter ex.FilePath = "C:\\Users\\yangwen\\Documents\\WeChat Files\\yangwen3931\\FileStorage\\File\\" \'指定目标文件路径 |
| -- 作者：有点蓝 -- 发布时间：2020/11/24 13:52:00 -- 打开文件还是导入文件？麻烦认真看看帮助好吗 |
| -- 作者：yangwenghd -- 发布时间：2020/11/24 14:00:00 -- 我是想点击按钮，然后对话框就显示的路径就是C:\\Users\\yangwen\\Documents\\WeChat Files\\yangwen3931\\FileStorage\\File\\ 然后我选中里面的文件，并且打开，复制到 FileSys.CopyFile (f, Tables("客户报价表").Current("报价信息_文件路径") & "\\" & FileSys.GetName(f), True)里面， |
| -- 作者：有点蓝 -- 发布时间：2020/11/24 14:02:00 -- 麻烦好好看看帮助：http://www.foxtable.com/webhelp/topics/0328.htm dlg.InitialDirectory = "C:\\Users\\yangwen\\Documents\\WeChat Files\\yangwen3931\\FileStorage\\File\\" \'指定目标文件路径
|
| -- 作者：yangwenghd -- 发布时间：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("添加成功")
|
| -- 作者：有点蓝 -- 发布时间：2020/11/24 14:57:00 -- 认真看帮助：http://www.foxtable.com/webhelp/topics/2126.htm |
| -- 作者：yangwenghd -- 发布时间：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("添加成功") |
| -- 作者：有点蓝 -- 发布时间：2020/11/24 16:27:00 -- 要打开的是复制前的文件？还是复制后的文件？想想在哪个代码后才能获取到文件名，打开文件的代码应该放在哪里？ |