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