Nested Folder Deletion with VB.Net

Question

Hi,

I have following directory structure with static parent directory name and randomly created sub-directories. Where in each sub-directory, there are several folders with same names on all sub-directories.

Is it supported to delete the specific folders with VB.Net (marked red in above screenshot) from all sub-folders (light green color), where the name of the parent directory (DemoRoot) is known but not the child directories (represented by SampleDir 1, SampleDir2, SampleDirN).

Answer 1

In case of re-formulated problem, try this code:

Dim names As String() = {"Dir_B", "Dir_C"}

Dim root = "C:\MyFiles\DemoRoot"

Dim directories = New DirectoryInfo(root).EnumerateDirectories().SelectMany(Function(x) x.EnumerateDirectories().Where(Function(d) Not names.Contains(d.Name, StringComparer.CurrentCultureIgnoreCase)))

For Each d In directories
    Try
        d.Delete(recursive:=True)
    Catch exc As DirectoryNotFoundException
        ' ignore
    End Try
Next

Answer 2

If the names Dir_B and Dir_C are known and are not present on other levels, then check this approach:

Dim names As String() = {"Dir_B", "Dir_C"}

Dim root = "C:\MyFiles\DemoRoot"

For Each d In New DirectoryInfo(root).EnumerateDirectories()
    For Each n In names
        Dim f = New DirectoryInfo(Path.Combine(d.FullName, n))
        Try
            f.Delete(recursive:=True)
        Catch exc As DirectoryNotFoundException
            ' ignore
        End Try
    Next
Next

Answer 3

Hi Viorel and thanks for reply.

I regret to inform that I composed question with error, the directory structure remains same but actually the directories marked in red should remain while EVERYTHING else should be deleted. So in my case, Dir_B and Dir_C should be kept while all other directories should be deleted... possible?