vb字符串截取问题

怎样把一个文件的文件名拿到？
比如：想把“D：\电影\变形金刚[2008fasdfa].asdfasd.fsdf.rmvb”中的文件名（即“变形金刚[2008fasdfa].asdfasd.fsdf”）拿到，怎样实现？

---

VB code:

Private Sub Command1_Click()
Dim a() As String
Dim b() As String
Dim strT As String

strT = "D：\电影\变形金刚[2008fasdfa].asdfasd.fsdf.rmvb"

a = Split(strT, "\")
b = Split(a(UBound(a)), ".")

MsgBox Replace(a(UBound(a)), "." & b(UBound(b)), "")

End Sub

---

引用Microsoft scripting Runtime
Private Sub Command1_Click()
    Dim w As Folder
    Dim f As New Scripting.FileSystemObject
    Dim fc As Files
    Set w = f.GetFolder("E:\me\test\myDll")
    Set fc = w.Files
    'Debug.Print fc.Count
    Call ww(fc)
End Sub

Function ww(ByVal vfc As Files)
    Dim s As File
    Dim arr1() As String
   
    For Each s In vfc
        Erase arr1
        arr1 = Split(s.Name, ".")
        Debug.Print Left(s.Name, Len(s.Name) - Len(arr1(UBound(arr1))) - 1)
&nb