Реализация "грамотного" переименования - VB

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

Здравствуйте! Нужна помощь, а именно "Как можно реализовать посредством программы "грамотное" переименование файлов?". То есть у меня есть папка с файлами формата .nfx, нужно чтобы одной кнопкой эти файлы переименовать в формат .mp3 не теряя оригинального названия файла. Если не сложно, подскажите пожалуйста. Пример: Chat.nfx => Chat.mp3

Решение задачи: «Реализация "грамотного" переименования»

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

                            sub command1_Click()
  'здесь задается папка, например folder="c:\temp" (сейчас app.path - это папка с EXE-шником)
  dim folder: folder = app.path
  Shell "cmd /c ""ren """ & folder & "\*.nfx"" ""*.mp3""", 0
end sub
                        