Function CreateRptTmpFile(p_Filename As String) As Boolean
On Error GoTo error
   Dim souPath As String
   Dim desPath As String
   souPath = g_Print_Path & p_Filename
   desPath = g_Temp_Path & p_Filename
   FileCopy souPath, desPath
   CreateRptTmpFile = True
   Exit Function
error:
   MsgBox "²úÉúÁãʱÎļþʱ³ö´í£¬Ô´Îļþ»òÄ¿±êÎļþÕýÔÚʹÓã¡", vbInformation, "¾¯¸æ"
   CreateRptTmpFile = False
   
End Function
为什么这段运行不出来,也不显示出错,只是显示MSGBOX信息,请求帮助
QQ:28311660