急！简单的搜索问题！

Question

InstrRev(string1, string2[, start[, compare]])InstrRev函数语法有如下几部分：部分 描述 
string1 必需的。要执行搜索的字符串表达式。 
string2 必需的。要搜索的字符串表达式。 
start 可选的。数值表达式，设置每次搜索的开始位置。如果忽略，则使用–1，它表示从上一个字符位置开始搜索。如果start包含 
Null，则产生一个错误。
 
compare 可选的。数字值，指出在判断子字符串时所使用的比较方法。如果忽略，则执行二进制比较。关于其值，请参阅“设置值”部分。 得到了字符的位置，用Right得到相应的字符吧
StrTemp="c:\aaa\bbb\ccc.txt"
StrTemp=Right(StrTemp,Len(StrTemp)-InstrRev(StrTemp,"\"))

Answer 1

实例：
Private Sub Command1_Click()
    Dim s As String
    Dim sFind As String
    Dim i As Integer
    Dim iStart As Integer
    
    s = "c:\aaa\ccc\bbb\ccc"
    sFind = "ccc"
    iStart = 0
    i = InStr(1, s, sFind, vbTextCompare)
    Do While i > 0
        iStart = i
        i = InStr(iStart + 1, s, sFind, vbTextCompare)
    Loop
    MsgBox iStart
End Sub

Answer 2

其实如果是得到文件名称的话，我建议使用FSO
http://www.csdn.net/expert/topic/666/666906.xml?temp=.9986231
我有详细的介绍

Answer 3

Private Sub Form_Load()
    Dim Buf() As String
    Dim a As String
    a = "c:\aaa\ccc\bbb\ccc.txt"
    Buf = Split(a, "\")
    Debug.Print Buf(UBound(Buf))
End Sub

Answer 4

自己编程实现，用for语句，mid函数从后面查找"\"然后取“\”后面的字符就可以了