Visual Basic

Dim folders As New System.Collections.Specialized.StringCollection<br />
<br />
 Private Function GetAllDirectories(ByVal Name As String)<br />
        On Error Resume Next<br />
        Dim finder As System.IO.Directory<br />
        Dim cdir As New System.Collections.Specialized.StringCollection<br />
        Dim cdir2 As New System.Collections.Specialized.StringCollection<br />
        <br />
        Dim cancel As Boolean = False<br />
        Dim dir As String<br />
<br />
        cdir.AddRange(finder.GetDirectories(Name))<br />
        folders.AddRange(finder.GetDirectories(Name))<br />
<br />
        Do While cancel = False<br />
<br />
            For Each dir In cdir<br />
                folders.AddRange(finder.GetDirectories(dir))<br />
                cdir2.AddRange(finder.GetDirectories(dir))<br />
            Next<br />
            If cdir2.Count = 0 Then<br />
                cdir = Nothing<br />
                cdir2 = Nothing<br />
                Dim i As Integer<br />
                For i = 0 To folders.Count<br />
                    lst.Items.Add(folders(i).ToString)<br />
                Next<br />
                cancel = True<br />
                Exit Do<br />
            Else<br />
                cdir.Clear()<br />
                Dim y As Integer<br />
                For y = 0 To cdir2.Count<br />
                    cdir.Add(cdir2(y))<br />
                Next<br />
                cdir2.Clear()<br />
                dir = Nothing<br />
                y = Nothing<br />
            End If<br />
<br />
        Loop<br />
<br />
        MessageBox.Show(lst.Items.Count)<br />
    End Function<br />
<br />
 Private Function GetAllFiles()<br />
        On error resume next<br />
        Dim files As System.IO.Directory<br />
        Dim dir As String<br />
        For Each dir In folders<br />
            lst.Items.AddRange(files.GetFiles(dir))<br />
        Next<br />
 End Function

EuroCPian Spring 2004 Get Together[^]
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar