E:\gongshitu\13372.jpg
E:\gongshitu\aaa\13352.jpg
E:\gA2588.jpg
....

象这样路径不一致的字符串中,提取如下全部的文件名:

13372
13352
gA2588

谢谢!instr()函数只能从左边查找对吧???
要如何实现,谢谢!

Public Function FileName(FilePath As String) As String           '函数定义
Dim i As Long                        '变量 i
i = InStrRev(FilePath, "\")          '最后一个 \ 的位置
FileName = Mid(FilePath, i + 1)      '返回文件名
End Function

调用示例

Dim s As String
s = InputBox("请输入文件名", "输入文件名")
Debug.Print s
s = FileName(s)
Debug.Print s
MsgBox s

谢谢!很感谢你 (风吹过b) 的帮助.....

多谢，学习了

Sub tt()
  Dim mydir As String
       Dim b As Byte
       b = 1
       i = 0
       Sheets(3).Range("A:A").ClearContents
       mydir = Dir("e:\gongshitu" & "\*.*", vbDirectory)    'ThisWorkbook.Path
       Do While mydir <> ""
        Sheets(3).Cells(b, 1) = mydir
        Sheets(3).Cells(b, 5) = WorksheetFunction.Substitute(mydir, "*.jpg", "")
        'i = InStrRev(mydir, "\")                       '得到总长度
        'Sheets(3).Cells(b, 10) = Mid(mydir, i + 1)     '得到后面的*.jpg 一起的文件名
        Sheets(3).Cells(b, 12) = Mid(mydir, 1, InStrRev(mydir, ".") - 1) '这样是得到后面的.jpg三个字符
        Sheets(3).Cells(b, 13) = Mid(mydir, 1, InStr(mydir, ".") - 1) '这样是得到后面的.jpg三个字符
        b = b + 1
        mydir = Dir
       Loop
End Sub

得到最终结果