各位：我用SHELL调用了一个外部程序，但在调用的过程中出现了错误，请问我如何知道出错并获取错误信息？

Question

dim dblRa as double   
dim strPath as string
dim strPARA as string      
strPath=app.path & "\liv.exe"
strPARA="th%SA"
dblRa = Shell(strPath & " " & strPARA, vbNormalFocus)

Answer 1

你查一下shell函数帮助，看看如果调用失败的返回值（是否为0）
如果帮助中没说，可以再执行如下语句：
on error resume next
activeapp dblra
if err.number<>0 then
  msgbox "error"
end if
'注，上面activeapp大概不对（具体我集不太请了），这是一个激活使用shell打开的窗口的方法，如果shell成功，将返回该窗口的app句柄

Answer 2

TO IsMe() 
好像不行，shell的返回的值不是0是一个不定数，也就是说shell成功了，但是被调用的程序什么功能都用不了，还出现“内存不足”(其实并非内存不足，因为只打开这一个VB工程)。请各位救救我吧!!!!