RosettaCodeData/Task/Walk-a-directory-Recursively/REALbasic/walk-a-directory-recursively-2.realbasic

  Dim f As FolderItem = GetFolderItem("C:\Windows\system32")
  Dim pattern As String = "((?:[a-z][a-z]+))(\.)(dll)"  //all file names ending in .dll
  printFiles(f, pattern)
	`Dim f As FolderItem = GetFolderItem("C:\Windows\system32")`
	`Dim pattern As String = "((?:[a-z][a-z]+))(\.)(dll)" //all file names ending in .dll`
	`printFiles(f, pattern)`