Resursive Folders - Exclude Folders

[Gabe Matteson]

How would I go about excluding a list of specific directories in a listbox
from being queried using the following code? Any ideas? Thank you.

Private Sub rAllStats(ByVal sDir As String)

Try

Dim objFolder As New System.IO.DirectoryInfo(sDir)

Dim objFile As System.IO.FileInfo() = objFolder.GetFiles

Dim sFile As System.IO.FileInfo



For Each objFolder In objFolder.GetDirectories

intTDirCount += 1

rAllStats(objFolder.FullName)

Next

'process files

For Each sFile In objFile

intTFileCount += 1

Next

end try

 

[Steve Long]

Hmmm, one thing you could do, if you know before hand what folders you want
to exclude, is to include the list of folders that you don't want to be
queried in your app.config file. The values could be comma seperated and
then just get the values with:
Dim arr() as string =
Configuration.ConfigurationSettings.AppSettings.Get("keyname").Split(",")
Stuff these values into a dictionary and then if the folder doesn't exist in
the dictionary, go ahead and query it.

Someone else may have a better idea but this would work. I use this
methodology for other types of things so there's no reason it wouldn't work.

Steve

 

[Andrew Morton]

Hmmm, one thing you could do, if you know before hand what folders
you want to exclude, is to include the list of folders that you don't
want to be queried in your app.config file. The values could be comma
seperated

I think it would be better to separate the values with a character that
can't appear in a folder name ;-)

Andrew

 

[Steve Long]

You are right Andrew. I actually didn't know you could throw a comma into a
folder name. But alas, you can, as weird as that would be but you never
know...
Steve