Need help with my recrusive function

[nkad]

I am trying to write a recursive function to return a list of files within folders and subfolders of a given directory.

I get the error, Object reference not set to an instance of an object, when I do FileList.Add.

  Function thisfunction(ByVal path As String, ByVal FileList As ArrayList)
        Dim di As New DirectoryInfo(path)
        Dim folder As DirectoryInfo
        Dim folders() As DirectoryInfo
        Dim file As FileInfo
        Dim files() As FileInfo


        folders = di.GetDirectories()

        For Each folder In folders
            thisfunction(path & "\" & folder.Name, FileList) 
        Next

        files = di.GetFiles

        For Each file In files
            FileList.Add(path & "\" & file.Name) '-capture currentworking path & filename
        Next

    End Function


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Files As ArrayList

        thisfunction("c:\test", Files)

        MessageBox.Show(Files.Count)
    End Sub

[mendhak]

Where have you declared FileList?

[nkad]

You must have missed it. It's a parameter of thisfunction(). I bet this doesnt work like it did in VB6. But I would like a way to do something similar w/o having to reference some other variable defined in a more global scope.

[mendhak]

My bad.

I'll go over this again.

[Asgorath]

Hi
You forgot to use the arraylist constructor call.
See modified code

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Files As new ArrayList

        thisfunction("c:\test", Files)

        MessageBox.Show(Files.Count)
    End Sub

Regards
Jorge