CommonDialog的一个问题,,来吧!

Question

Text1.Text = CommonDialog1.FileName
他得出的路径是: C:\Program Files\Game\Game.exe
但我想他变作 C:\Program Files\Game\
不要后面的,那应该怎做

Answer 1

InStrRev函数
描述
返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。Private Sub Command1_Click()
    Dim a As Integer
    a = InStrRev(Text1, "\")
    Debug.Print Left(Text1, a - 1)
End SubPrivate Sub Form_Load()
    Text1 = "C:\Program Files\Game\Game.exe"
End Sub