How to call iterator function with a button click?

Question

1.00/5 (1 vote)

See more:

I am well aware of how to call a function inside a button when using a label or text box to say change text or to do small tasks of that matter. My problem is trying to call a function to carry out my enumeration function?

VB

Private Iterator Function GetFilesRecursive(ByVal dirInfo As DirectoryInfo, ByVal searchPattern As String) As IEnumerable(Of FileInfo)
        searchPattern = ComboBox1.SelectedItem
        For Each di As DirectoryInfo In dirInfo.GetDirectories()
            For Each fi As FileInfo In GetFilesRecursive(di, searchPattern)
               
                Yield fi
            Next fi
        Next di

        For Each fi As FileInfo In dirInfo.GetFiles(searchPattern)
            
            Yield fi
        Next fi
    End Function

thank you in advance!!

Posted 9-Jan-12 20:51pm

Dale 2012

Updated 9-Jan-12 20:58pm

Mehdi Gholam

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Spopy · Accepted Answer · 2012-01-11T23:22:00

Public Class FrmTest
    'First solution
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Lst As Generic.List(Of System.IO.FileInfo)

        Lst = GetFileRecursive("C:\temp", "3W5357*")
        For Each f As System.IO.FileInfo In Lst
            ' your  code
        Next
    End Sub
    Private Function GetFileRecursive(ByVal Path As String, ByVal FileSearchPattern As String) As Generic.List(Of System.IO.FileInfo)
        Dim d As New System.IO.DirectoryInfo(Path)
        Return GetFileRecursive(d, FileSearchPattern)
    End Function
    Private Function GetFileRecursive(ByVal Path As System.IO.DirectoryInfo, ByVal FileSearchPattern As String) As Generic.List(Of System.IO.FileInfo)
        Dim lstfile As New Generic.List(Of System.IO.FileInfo)
        'first step 
        'Add file
        For Each s As String In System.IO.Directory.GetFiles(Path.FullName, FileSearchPattern)
            Dim F As New System.IO.FileInfo(s)
            lstfile.Add(F)
        Next
        'Serch for subdirectory
        For Each s As String In System.IO.Directory.GetDirectories(Path.FullName)
            lstfile.AddRange(GetFileRecursive(s, FileSearchPattern))
        Next
        Return lstfile
    End Function



    'Second solution
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim Lst As New MyFile("C:\temp", "3W5357*")
        For Each f As System.IO.FileInfo In Lst
            ' your  code

        Next
    End Sub


End Class
Public Class MyFile
    Implements IEnumerable
    Private MyPath As String
    Private MyFileSearchPath As String
    Public Sub New(ByVal Path As String, ByVal FileSearchPath As String)
        MyBase.New()
        MyPath = Path
        MyFileSearchPath = FileSearchPath
    End Sub

    Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
        Return New MyFileEnum(MyPath, MyFileSearchPath)
    End Function
End Class
Public Class MyFileEnum
    Implements IEnumerator
    Private Position As Integer = -1
    Private MyLst As Generic.List(Of System.IO.FileInfo)

    Private Function GetFileRecursive(ByVal Path As String, ByVal FileSearchPattern As String) As Generic.List(Of System.IO.FileInfo)
        Dim d As New System.IO.DirectoryInfo(Path)
        Return GetFileRecursive(d, FileSearchPattern)
    End Function
    Private Function GetFileRecursive(ByVal Path As System.IO.DirectoryInfo, ByVal FileSearchPattern As String) As Generic.List(Of System.IO.FileInfo)
        Dim lstfile As New Generic.List(Of System.IO.FileInfo)
        'first step 
        'Add file
        For Each s As String In System.IO.Directory.GetFiles(Path.FullName, FileSearchPattern)
            Dim F As New System.IO.FileInfo(s)
            lstfile.Add(F)
        Next
        'Serch for subdirectory
        For Each s As String In System.IO.Directory.GetDirectories(Path.FullName)
            lstfile.AddRange(GetFileRecursive(s, FileSearchPattern))
        Next
        Return lstfile
    End Function

    Public Sub New(ByVal Path As String, ByVal FileSearchPath As String)
        MyBase.New()
        MyLst = GetFileRecursive(Path, FileSearchPath)
    End Sub
    Public ReadOnly Property Current() As Object Implements System.Collections.IEnumerator.Current
        Get
            Try
                Return MyLst(Position)
            Catch ex As IndexOutOfRangeException
                Throw New InvalidOperationException
            End Try
        End Get
    End Property

    Public Function MoveNext() As Boolean Implements System.Collections.IEnumerator.MoveNext
        Position = Position + 1
        Return (Position &lt; MyLst.Count)
    End Function

    Public Sub Reset() Implements System.Collections.IEnumerator.Reset
        Position = -1
    End Sub
End Class