Переименование файлов с подстановочными знаками/регулярными выражениями

Question

У меня есть текстовый файл с именем SampleTestFile.ghi. После того как этот файл обрабатывается программой, он переименовывается и перемещается в другую папку. Соглашение об именовании используется при переименовании файла является *.abc

Так у меня есть имя файла (SampleTestfile.ghi), у меня есть соглашение об именах (*.abc), но как я могу преобразовать исходное имя файла в обрабатываемом имя файла с помощью VBA? Есть ли способ, что я могу сказать

ProcessFileName = "SampleTestFile.ghi" & "*.abc" 
''and get the correct answer of SampleTestFile.abc ? 

Answer 1

ProcessFileName = Replace(sampleTestFileName, ".ghi",".abc") 

Предполагая, что «.ghi» никогда не происходит в середине файла

Возможно безопаснее использовать Mid()

Sub Test() 

    Dim s 
    s = "my strange filename.ghi here.ghi" 

    Debug.Print "original", s 

    'Method 1 (has a potential problem) 
    Debug.Print "method 1", Replace(s, ".ghi", ".abc") 

    'Method 2 (safer) 
    Mid(s, Len(s) - 3, 4) = ".abc" 
    Debug.Print "method 2", s 

End Sub