[Uzvern]

Как в For Each можно перейти на следующий элемент? Наример мне ненужно записывать какое-то значение, и если оно обнаружено, то переходит на следующий.
вот например пытаюсь сделать обход System Volume Information, но она все-равно проскакивает

Код:

    Function GetFilesAndFolders(ByVal Folder As String) As String
        Dim StringBuilder As New System.Text.StringBuilder
        Dim FolderName As IO.DirectoryInfo

        StringBuilder.AppendLine(Folder)

        For Each Path As String In IO.Directory.GetDirectories(Folder)

            Try
                FolderName = My.Computer.FileSystem.GetDirectoryInfo(Folder)

                If FolderName.Name = "System Volume Information" Then
                    ChDir("..")
                    Continue For
                End If

                ChDir(Path)

                StringBuilder.AppendLine(GetFilesAndFolders(Path))
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Ошибка")
            End Try

        Next

        For Each File As String In IO.Directory.GetFiles(Folder)
            StringBuilder.AppendLine(File)
        Next

        Return StringBuilder.ToString
    End Function