Удаление файлов кроме определенного (по маске) - VB

Формулировка задачи:

День добрый всем, кто это читает. На сегодняшний день у меня вопрос такой: есть папка (путь к ней известен), содержащая несколько файлов, из которых известно название только одного. А задача в том, чтобы удалить все файлы, кроме известного в данной папке. Помогите чем могёте. Заранее спасибо.

Решение задачи: «Удаление файлов кроме определенного (по маске)»

textual
                            Листинг программы 
                        

                            Private Function funDelFiles() As Boolean
    'strMoyFile  - из которых известно название только одного.
    'strMoyaPapka - есть папка (путь к ней известен)
     
    Dim m_strFile AS String
 
    m_strFile = Dir$(strMoyaPapka & ' ')
    Do While Len(m_strFile) > 0
        If UCase$(m_strFile)<> UCase$(strMoyFile) Then
           Kill  strMoyaPapka & ' ' & m_strFile
        End If 
        m_strFile = Dir$
    Loop
End Function
                        