在DEBUG状态下,没有一点问题;但是编译好之后,就会出现“无法复制 复制文件或文件夹时出错”的提示,请问为什么会这样呢,谢谢!
部分源码如下:
“s_file_name=s_charge2+em_year_month.text+'-'+em_year_month2.text+'.xls'
s_file_path=cpath+'\templet\'+s_charge2_table+'.xls'
s_data_path=cpath+'\data\'+s_file_name
istr_SHFILEOP.hwnd=0
istr_SHFILEOP.wFunc=2
istr_SHFILEOP.pFrom=Trim(s_file_path)
istr_SHFILEOP.pTo=Trim(s_data_path)
l_RTN = SHFileOperation(istr_SHFILEOP)
if l_RTN <> 0 then
Messagebox('警告', '文件操作失败,请手工将文件'+s_file_path+'复制到'+cpath+'\data目录下,并将此文件更名为'+s_file_name+',然后打开此文件!')
else
l_label=ShellExecute(0,"open",s_data_path,'','',1)
if l_label>32 then
else
messagebox('警告','打开文件失败,请手工打开文件'+s_data_path+'!')
end if
”
------解决方案--------------------
绝对路径和相对路径的问题?
------解决方案--------------------
应该是路径问题,你比较下编译前和编译后需要复制的文件的路径都是什么。