Dim files As AbstractFile() = myFolder.GetFiles( True, ">*.TXT" )

Dim files As AbstractFile() = myFolder.GetFiles( True, ">*.txt|*.exe" ) )

Dim files As AbstractFile() = myFolder.GetFiles( True, New NameFilter( "*.txt" ) )

Dim files As AbstractFile() = myFolder.GetFiles( True, "*.txt" )

Dim files As AbstractFile() = myFolder.GetFiles( True, _

New OrFilter( New NameFilter( "*.txt" ), _

New NameFilter( "*.exe" ) ) )

Dim files As AbstractFile() = myFolder.GetFiles( True, New NameFilter( "*.txt|*.exe" ) )

'      

'       * Consider the following folder and file hierarchy:

'       * 

'       * Folder: NameFilter1

'       * |-------> Folder: Folder1

'       *           |-------> Folder: TargetName

'       *                     |-------> Folder: TargetNameAndExtraChars

'       *                               |-------> File: File1.dat

'       *                               |-------> File: File2.dat

'       *                               |-------> File: TargetName.dat

'       *                               |-------> File: TargetName

'       * |-------> Folder: TargetName

'       * 

'       * |-------> Folder: Folder3

'       *           |-------> Folder: Folder3_1

'       *                     |-------> Folder: TargetName

'       *                               |-------> Folder: Folder3_1_1

'       *                                         |-------> Folder: TargetName

'       *                                                   |-------> File: File3.dat

'       *                                                   |-------> File: File4.dat

'       *                               |-------> File: File5.dat

'       * |-------> File: File6.dat

'       * |-------> File: File7.dat

'       * 

'       * Suppose our goal is to select all folders (not files) that bear the name 'TargetName',

'       * then the folders:

'       * 

'       * NameFilter1->Folder1->TargetName

'       * NameFilter1->TargetName

'       * NameFilter1->Folder3->Folder3_1->TargetName

'       * NameFilter1->Folder3->Folder3_1->TargetName->Folder3_1_1->TargetName

'       * 

'       * should be selected. The 'TargetNameAndExtraChars' folder is not an exact match and the file

'       * 'TargetName' is a file not a folder.

'       * 

'       * The 'TargetName' folder under 'Folder3_1_1' is an interesting case because it is below a

'       * previous matched folder. That may or may not be desired. We can address both situations.

'       



Dim baseFolder As AbstractFolder = New DiskFolder("NameFilter1")



' This is the name we will be looking for

Dim targetName As String = "TargetName"



' If our test folders don't exist

If (Not baseFolder.Exists) Then

  ' We will create a set of files and folders to test our filter 



  Dim sourceFile, file As AbstractFile

  Dim folder As AbstractFolder



  file = baseFolder.GetFile("File6.dat")

  file.Create()

  file = baseFolder.GetFile("File7.dat")

  file.Create()



  sourceFile = file



  folder = baseFolder.GetFolder(String.Format("Folder1\{0}\{0}AndExtraChars", targetName))

  sourceFile.CopyTo(folder.GetFile("File1.dat"), True)

  sourceFile.CopyTo(folder.GetFile("File2.dat"), True)

  sourceFile.CopyTo(folder.GetFile(targetName & ".dat"), True)

  sourceFile.CopyTo(folder.GetFile(targetName), True)



  folder = baseFolder.GetFolder(targetName)

  folder.Create()



  folder = baseFolder.GetFolder(String.Format("Folder3\Folder3_1\{0}", targetName))

  sourceFile.CopyTo(folder.GetFile("File5.dat"), True)

  folder = folder.GetFolder(String.Format("Folder3_1_1\{0}", targetName))

  sourceFile.CopyTo(folder.GetFile("File3.dat"), True)

  sourceFile.CopyTo(folder.GetFile("File4.dat"), True)

End If



Dim folders() As AbstractFolder

Dim files() As AbstractFile



'      

'       * The simplest approach is use a NameFilter object and set the scope to FilterScope.Folder.

'       * This will select all the folders that have our targetName.

'       * 

'       * The key is the FilterScope argument set to Folder 



' Create a name filter that accepts our targetName on a folder only (case insensitive)

Dim nameFilter As New NameFilter(targetName, FilterScope.Folder)



' Get any folder that match our name filter

folders = baseFolder.GetFolders(True, nameFilter)



Console.WriteLine("Simple filtering")

For Each folder As AbstractFolder In folders

  Console.WriteLine(folder.FullName)

Next folder

Console.WriteLine()



'       The output will be:

'       * NameFilter1->Folder1->TargetName

'       * NameFilter1->TargetName

'       * NameFilter1->Folder3->Folder3_1->TargetName

'       * NameFilter1->Folder3->Folder3_1->TargetName->Folder3_1_1->TargetName

'

'

'      /*

'       * If you only want the most top level folder that matches the filter and not any sub folders

'       * that also match the filter, you can add filters that exclude them.

'       * 

'       * The key is to prevent the filtering engine to recurse into folders that match our tagetName.

'       * Again, the FilterScope parameter can be put to good use.

'       



' Create a name filter that matches the name 'Aid' but only when determining if the

' filter engine should look into a recursed folder

Dim recurseFilter As New NameFilter(targetName, FilterScope.Recurse)



' Wrap our recurse filter in a NotFilter to invert the decision

Dim notFilter As New NotFilter(recurseFilter)



' Get all the folders that match our name and do not match the name when recursing into sub folders

folders = baseFolder.GetFolders(True, nameFilter, notFilter)



Console.WriteLine("Filtering with only top-level matches")

For Each folder As AbstractFolder In folders

  Console.WriteLine(folder.FullName)



  '         TODO: Here, you can process all the files that are in the folder individually

  '            with folder.GetFiles() or as a group using methods like folder.CopyFilesTo(), etc 

Next folder

Console.WriteLine()



'****************************



' If you're simply looking for files 



' Get all the files that match our name (this works because by default, the FilterScore is for files only)

files = baseFolder.GetFiles(True, targetName)



Console.WriteLine("Filtering for files only")

For Each file As AbstractFile In files

  Console.WriteLine(file.FullName)

Next file

Console.WriteLine()