VBA正規表現で非キャプチャグループを使用するには？

Question

VBAでは、拡張子なしでUNCパスからファイル名を取得するためにregexを使用しようとしています.TIFファイルのみを見ています。

Function findTIFname(filestr As String) As String 

Dim re As RegExp 
Dim output As String 
Dim matches As MatchCollection 

Set re = New RegExp 
re.pattern = "[^\\]+(?:[.]tif)$" 
Set matches = re.Execute(filestr) 
If matches.Count > 0 Then 
    output = matches(0).Value 
Else 
    output = "" 
End If 
findTIFname = output 

End Function 

をしかし、私は、関数を実行すると、以下のように：

は、これまでのところ、これは私が持っているものである

msgbox findTIFname("\\abc\def\ghi\jkl\41e07.tif") 

私が得る次の出力：私は思っ

41e07.tif 

"（？：xxx）"は非キャプチャグループの正規表現の構文です。私は何を間違えているのですか？

Answer 1

(?:...)は、非キャプチャグループです。前後参照アサーションがゼロ幅を持っており、何の文字を消費しないことを

re.pattern = "[^\\]+(?=[.]tif$)"

注：ここで必要となるので、同様(?=...)構文を持ってい肯定先読みアサーションです。

Answer 2

RegExでこれを行う必要がありますか？
アクセス（または、より良い、MS Office）には、RegExなしでこれを簡単に行うための組み込みの方法があります。

Microsoft Scripting Runtime（私が知る限り、すべてのMS Officeのインストールに含める必要があります）を参照するだけで済みます。
そして、あなたがFileSystemObjectを使用することができます：あなたの例UNCパス\\abc\def\ghi\jkl\41e07.tif考える

Public Function findTIFname(filestr As String) As String 

    Dim fso As FileSystemObject 
    Set fso = New FileSystemObject 

    If fso.GetExtensionName(filestr) = "tif" Then 
     findTIFname = fso.GetBaseName(filestr) 
    End If 

    Set fso = Nothing 

End Function 

、これは41e07を返します。