顺序没有错呀,打开指定的窗口,然后选择文件,然后复制到指定的文件文件夹里面,然后在打开这个被复制的文件。
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
Dim Proc As New Process '定义一个新的Process
Proc.File = e.FileName '指定要打开的文件
proc.WaitForClose = True '等到关闭进程才能进行后续操作
Proc.Start() '打开文件
End If
msgbox("添加成功")
'