Удалить много файлов в папке данных приложения

Я пытаюсь удалить 3 файла (file1.sol file2.sol file3.sol) из папки Application Data. Мои кодовые слова прекрасно работают с одним файлом, но как я могу удалить три файла?

Вот мой код:

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

    Dim path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

            Dim fileList As New List(Of String)
            GetAllAccessibleFiles(path, fileList)
            Application.DoEvents()
            Dim files As String() = fileList.ToArray
            For Each s As String In fileList
                My.Computer.FileSystem.DeleteFile(s)
            Next
End Sub

Sub GetAllAccessibleFiles(ByVal path As String, ByVal filelist As List(Of String))
    For Each file As String In Directory.GetFiles(path, "file1.sol")
        filelist.Add(file)
    Next
    For Each file As String In Directory.GetFiles(path, "file2.sol")
        filelist.Add(file)
    Next
    For Each file As String In Directory.GetFiles(path, "file3.sol")
        filelist.Add(file)
    Next

    For Each dir As String In Directory.GetDirectories(path)
        Try
            GetAllAccessibleFiles(dir, filelist)
        Catch ex As Exception
        End Try
    Next

End Sub

1 ответ

Первая строка в GetAllAccesibleFiles, ищет файлы с именем: "file1.sol", это означает, что он будет только извлекать этот файл. Попробуйте "file*.sol", что означает, что он начинается с "file" и заканчивается ".sol". Это должно работать. Если вы хотите удалить только файлы 1,2 и 3, но не, например, файл 4, то вы можете запустить цикл for 3 раза, проверить, существует ли файл "file1", удалить его, проверить, существует ли файл "file2", и так далее.

Другие вопросы по тегам