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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货