If File1 > "" And File2 > "" Then
Dim yj As String = File1 & ".xls"
Dim moban As String = File2 & ".xls"
MessageBox.Show(yj)
MessageBox.Show(moban)
End If
Dim copy As String = (ProjectPath & "Attachments\Templates\Files\" & "& yj &")
MessageBox.Show(copy)
Dim r As Row = Tables("项目详细表").Current
Dim b As String = r("项目名称")
Dim c As String = r("项目类型")
Dim d As String = r("项目编号")
Dim report As String = (Vars("JobsPath") & d & b & "(" & c & ")" & ".xls")
If FileSys.DirectoryExists(Vars("JobsPath")) Then
FileSys.CopyFile("& copy &", "& report &",True)
Else
MessageBox.Show("未找到文件目录!", "错误")
End If
各位老师，这个每次中途都报错，说找不到copy文件。请教一下该怎么修改？
[此贴子已经被作者于2019/9/4 22:52:33编辑过]
加好友 
发短信
Post By：2019/9/4 22:47:00 [只看该作者]
