VB中写了如下代码:
Set objShell = CreateObject("WScript.Shell")
getQQpath = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\QQ\REG_BINARY")目的是要获取QQ的REG_BINARY值,但是如果运行此代码的机器上没有安装QQ,也就是这个值根本无法获取,这样的时候该怎样判断getQQpath呢?
是getQQpath=“”?还是其他的???
因为下面我将根据getQQpath是否存在来写其他代码,谢谢大家了!

解决方案 »

  1.   


    MsgBox TypeName(getQQpath)
    MsgBox VarType(getQQpath)
    测一下看是个什么东西再决定.
      

  2.   

    一种比较简单的方法是这样来处理:Set objShell = CreateObject("WScript.Shell") 
    On Error Resume Next
    getQQpath = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\QQ\REG_BINARY") 
    If Err.Number <> 0 Then
        WScript.Echo ("Error # " & CStr(Err.Number) & ", " & Err.Description & vbCrLf & "Source: " & Err.Source)
    End If