VB提取指定字段

a=D:\Program Files\Tencent\QQ\Bin\QQ.exe '这个是路径变量a但是后面的QQ.exe不会变

假设我不要后面的QQ.exe

只要前面的D:\Program Files\Tencent\QQ\Bin\ 并把这段路径赋值给变量b

dim b as string

b= '后面这么填？？？？？

各位大虾帮帮忙！！！谢谢

Dim a As String
Dim b As String
a = "D:\Program Files\Tencent\QQ\Bin\QQ.exe"
b = Left(a, InStrRev(a, "\"))
MsgBox b

b=Left(a,Len(a)-6);