For Each foundDirectories As String In _
          My.Computer.FileSystem.GetDirectories("S:\Test", _
          FileIO.SearchOption.SearchTopLevelOnly)
            If Not foundDirectories.ToLower.Contains("s:\test\tt") And _
              Not foundDirectories.ToLower.Contains("s:\test\ap") And _
              Not foundDirectories.ToLower.Contains("s:\test\de") Then ' Pfade 
              ' alle kleinschreiben
                My.Computer.FileSystem.DeleteDirectory(foundDirectories, _
                  FileIO.UIOption.OnlyErrorDialogs, _
                  FileIO.RecycleOption.SendToRecycleBin, _
                  FileIO.UICancelOption.ThrowException)
            End If
        Next