Question

VB实时错误94，无效使用null，跪求vb6.0高手帮忙

代码如下
Private Sub Timer2_Timer()
Dim ps, s$, jj%
s = Text3.Text
If s = "" Then Exit Sub
For Each ps In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
If UCase(ps.Name) = UCase(s) Then
jj = InStrRev(ps.executablepath, "\") & ""
Text4.Text = Mid(ps.executablepath, 1, jj - 1)
Command35.Value = True
Exit For
End If
Next
End Sub

Answer 1

jj = InStrRev(ps.executablepath, "\")
Text4.Text = Mid(ps.executablepath, 1, jj - 1) & ""

追问

还是不行，我vb里面直接先运行测试，他报无效使用null
并且标示在这句上，请问这句有什么问题吗？
jj = InStrRev(ps.executablepath, "\")

追答

ps.executablepath的值为NULL?

追问

我也不知道，这段代码我也复制的。不过问题是
jj = InStrRev(ps.executablepath, "\")这段我后面加了& ""还是解决不了，而且很奇怪的是，第一次运行，他会报，不过打开第二次他就正常了，所以比较奇怪

追答

InStrRev函数
InstrRev(string1, string2[, start[, compare]])
如果 InStrRev返回
string1长度为零。 0
string1为Null。 Null
string2为Null Null

ps.executablepath的值为NULL时，你不能将NULL赋值给一个整型变量。
你可以考虑用：jj = val(InStrRev(ps.executablepath, "\"))

追问

我改成

还是不行，请问我哪里出错了吗？

追答

jj = val(InStrRev(ps.executablepath, "\") & "")

追问

不好意思又要麻烦您了，我试了下还是不行