Удалить все файлы, кроме 3 файлов VB.NET
- Привет!
У меня есть этот код:
Private Sub DeleteOldFiles( ByVal AsDirectoryName As String, ByVal AbDeleteSubDirectories As Boolean, ByVal AbDeleteFolders As Boolean) If AbDeleteSubDirectories Then Dim m_sSubdirectoryName As String For Each m_sSubdirectoryName In System.IO.Directory.GetDirectories(AsDirectoryName) DeleteOldFiles _ (m_sSubdirectoryName, AbDeleteSubDirectories, AbDeleteFolders) If AbDeleteFolders Then System.IO.Directory.Delete(m_sSubdirectoryName) End If Next End If Dim m_sFileName As String For Each m_sFileName In System.IO.Directory.GetFiles(AsDirectoryName) If m_sFileName <> "exceptme.txt" Then System.IO.File.Delete(m_sFileName) End If Next
и DeleteOldFiles ("./", True, True)на кнопке управления.
но этот код работает только с одним файлом.
я хочу, кроме других файлов.
как я могу это сделать?
Что я уже пробовал:
я пытался найти другие файлы, но не знаю, как.