VB中写了如下代码:
Set objShell = CreateObject("WScript.Shell")
getQQpath = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\QQ\REG_BINARY")目的是要获取QQ的REG_BINARY值,但是如果运行此代码的机器上没有安装QQ,也就是这个值根本无法获取,这样的时候该怎样判断getQQpath呢?
是getQQpath=“”?还是其他的???
因为下面我将根据getQQpath是否存在来写其他代码,谢谢大家了!
Set objShell = CreateObject("WScript.Shell")
getQQpath = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\QQ\REG_BINARY")目的是要获取QQ的REG_BINARY值,但是如果运行此代码的机器上没有安装QQ,也就是这个值根本无法获取,这样的时候该怎样判断getQQpath呢?
是getQQpath=“”?还是其他的???
因为下面我将根据getQQpath是否存在来写其他代码,谢谢大家了!
MsgBox TypeName(getQQpath)
MsgBox VarType(getQQpath)
测一下看是个什么东西再决定.
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