Big Bad Code

Private Function RecursiveSearch(path as String) as Boolean
    Dim dirInfo As New IO.DirectoryInfo(path)
    Dim fileObject as FileSystemInfo
    for each fileObject in dirInfo.GetFileSystemInfos()
          If fileObject.Attributes = FileAttributes.Directory Then
               RecursiveSearch(fileObject.FullName)
        else
            Console.WriteLine(fileObject.FullName)
           End If
    next
    Return True
End Function

Posted in Code, Technical | 6 Comments

6 Responses to “Recursive File and Folder Listing VB.NET”

1. on 08 Sep 2007 at 5:21 pm1Jay

   Dude, this is awesome.. all other snipets are like 300 lines long.. you rock !!

2. on 13 Sep 2007 at 5:26 pm2E

   great! don’t know how you did it, but it works

3. on 13 Sep 2007 at 5:38 pm3jbloom

   E, the trick (if there is one) here is that I examine each entry in a directory, if the entry is itself a directory, then I call the same function that I am in ‘RecursiveSearch’ with the new path of the directory.
   When the new function instance has finished doing its work, the original running function continues wherever it left off.

   That’s the point of recursion.

4. on 06 Jun 2008 at 6:00 am4Code Principles

   Very cool. I just have been using the brute force technique, like an idiot.

   I will put a link to your site from mine after I make the code change, Thanks!

5. on 17 Oct 2008 at 7:09 am5Bob

   Simply elegant

6. on 17 Nov 2008 at 9:14 am6Andrea

   Works in many languages, in c++ too.
   I use this method in qt 3 by trolltech
   ……
   }
   }
   else if ( fi->isDir() )
   {
   if ( fi->fileName() != “.” & fi->fileName() != “..” )
   {
   newDir = dir + fi->fileName () + “/”;
   Update_dir( newDir, true );
   …………

Leave a Reply