Recursive Searching the Hard Disk for a file.

Type file
	Field path$, file%, folderread%, size%, treeview%
End Type

Function ReadFolder(folder$)
	Delete Each file
	Local TFiles% = 0
	
	this.file = New file
		this\path$ = ""
		this\file% = 0
		this\folderread% = 0
		
	Repeat
		For this.file = Each file
			UnreadFolders =  0
			If this\file = 0 Then
				If this\folderread = 0 Then
					UnreadFolders =  1
					dir% = ReadDir(folder$ + this\path$)
					If dir%
						While True
							file$ = NextFile$(dir%)
							If file$ = "" Exit
							If Not file$ = "." Or file$ = ".."
								TFiles = TFiles + 1
								
								; New entry
								that.file = New file
									that\path$ = this\path$ + "\" + file$
									that\file = 2 - FileType(folder$ + "\" + this\path$ + "\" + file$)
									that\folderread = 0
									If that\file = 1 Then that\size = FileSize(folder$ + "\" + this\path$ + "\" + file$)
								; End of new entry
								
							EndIf
						Wend
						this\folderread = True
						CloseDir dir%
					EndIf
				EndIf
			EndIf
		Next
	Until UnreadFolders = 0
End Function