老实,能帮忙看看这个吗?
点击按钮,打开指定路径,然后选择文件,复制到另外一个路径里面,并且打开这个文件?感谢 感谢
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("添加成功")