VB.NET - поиск каталога и удаление, если он содержит определенные символы

Question

Я искал высоко и низко и не могу найти способ сделать это. Я пишу программу, которая будет работать при входе в систему и удалить каталог в другом каталоге. Наша компания имеет программное приложение, которое содержит каталог, который иногда становится поврежденным. Проблема в том, что каталог содержит некоторые статические слова, а затем добавляется с произвольно сгенерированным набором символов. Таким образом, необходимо искать статические слова и удалять любую содержащую их директорию. Это пинает мою задницу. Спасибо за любую помощь!

Edit:

Мои извинения за не добавляя все или некоторые из кода, который я написал до сих пор. Я могу удалить статические каталоги, но не динамические. Опять же, я учу себя, и я уверен, что есть лучшие способы сделать то, что мне нужно, но я их не знаю. Я также уверен, что мой код грязный и такой. Я хотел бы получить конструктивную критику, но, пожалуйста, не заставляйте меня пытаться. См. Ниже. Благодаря!

Imports System.IO 

Module Module1 

Public Sub Main() 

'I'm wanting to see the user name output in the console 
    Dim user As String 
    user = Environment.UserName 

    Console.Write(user) 
    'new line 
    Console.WriteLine() 

    Dim path1 As String 
    path1 = "\appdata\local\DIRECTORY\APPLICATIONNAME.exe_Url_ny2thmvtmqmw4jiqk1yuytwfbddruu02" 

    Dim path2 As String 
    path2 = "\appdata\local\DIRECTORY\APPLICATIONNAME.exe_Url_r3joylqll52q54guz0002pxu4swqous0" 

    Dim fullpath As String 
    fullpath = "C:\Users\" & user & path1 

    Dim fullpath2 As String 
    fullpath2 = "C:\Users\" & user & path2 

    Dim toplevel As String 
    toplevel = "\appdata\local\APPLICATIONNAME\" 

    Dim toplevel1 As String 
    toplevel1 = "C:\Users" & user & toplevel 

    If Directory.Exists(fullpath) = True Then 

     Directory.Delete(fullpath, True) 

    ElseIf Directory.Exists(fullpath2) = True Then 

     Directory.Delete(fullpath2, True) 

    End If 

'I would like to keep the window open until I work the kinks out 
    Console.WriteLine("Finished. You may now close this window.") 
    Console.ReadKey() 

End Sub 

End Module 

Answer 1

Это должно делать то, что вам нужно. Я включил имена параметров, чтобы сделать их более читаемыми. Вы можете лишить их, если вы предпочитаете более лаконичный подход ...

' Will find all directories under C:\Root\Folder\ 
' (including subdirectories) with a name that starts 
' with "SearchString", then delete them and their contents 
System.IO. 
    Directory. 
    GetDirectories(
     path:="C:\Root\Folder\", 
     searchPattern:="SearchString*", 
     searchOption:=System.IO.SearchOption.AllDirectories). 
    ToList(). 
    ForEach(Sub(x) System.IO.Directory.Delete(path:=x, recursive:=True)) 

Тем не менее, это просто объединяются две задачи:

• Поиск списка каталогов
• Удаление каждого из в свою очередь

В Интернете есть много учебников и примеров (и многочисленные вопросы о переполнении стека), относящиеся к этим темам.

Edit: Краткая версия

Imports System.IO 

Directory.GetDirectories("C:\Root\Folder\", "SearchString*", SearchOption.AllDirectories). 
    ToList().ForEach(Sub(x) Directory.Delete(x, True)) 

Answer 2

попробовать использовать что-то вроде этот код ниже удаляет каждую папку Thats содержит шаблон, указанный на строка массива.

Dim Words() As String = {"Word1","Word3","Word4",.."Wordn"} 
For Each iPatternWord as String In Words 
    For Each iDir As System.IO.DirectoryInfo In System.IO.Directory.GetDirectories(@"C:\",iPattern) 
     iDir.Delete(true);//===>Delete this folder.   
    Loop 
Loop