Записать в файл список файлов с расширением jpg - Visual Basic .NET

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

Помогите пожалуйста!!! Сформировать текстовый файл, в котором указать названия файлов из папки X, с расширением .JPG, записать его на «Рабочий стол», если файл уже существует, то переименовать его с расширением «.BAK»

Решение задачи: «Записать в файл список файлов с расширением jpg»

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

                             Dim path As String = "C:\Users\administrator\Pictures\art" 'папка Х
        Dim files As New ListBox ' хранилище найденных файлов
        For Each foundFile As String In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg") ' поиск файлов
            Dim FI As New IO.FileInfo(foundFile)
            files.Items.Add(foundFile)
        Next
 
        Dim path_to_save As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "" & "result.txt" ' место сохранения
        If IO.File.Exists(path_to_save) Then ' если файл result.txt существует
            If IO.File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "" & "result.bak") Then ' проверяем существует ли result.bak , если да, то удаляем
                IO.File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "" & "result.bak")
            End If
            My.Computer.FileSystem.RenameFile(path_to_save, "result.bak") ' переименовываем result.txt в result.bak
 
            For i = 0 To files.Items.Count - 1
                IO.File.AppendAllText(path_to_save, files.Items.Item(i) & vbNewLine, System.Text.Encoding.Default) ' записываем все в файл
            Next
        Else
            For i = 0 To files.Items.Count - 1
                IO.File.AppendAllText(path_to_save, files.Items.Item(i) & vbNewLine, System.Text.Encoding.Default) ' записываем все в файл
            Next
        End If
                        