DoDefault() PUBLIC oMyFiler WITH THISFORM IF !EMPTY(THIS.Parent.Folder.Value) .and. !EMPTY(THIS.Parent.Extension.Value) oMyFiler = CREATEOBJECT('Filer.FileUtil') oMyFiler.SearchPath = Trim(THIS.Parent.Folder.Value) oMyFiler.FileExpression = Trim(THIS.Parent.Extension.Value) IF .IncludeSubs.Value=1 oMyFiler.Subfolder=1 Else oMyFiler.Subfolder=0 Endif IF .Insensitive.Value=1 oMyFiler.IgnoreCase=1 Else oMyFiler.IgnoreCase=0 Endif IF !EMPTY(THISFORM.SearchText1.Value) oMyFiler.SearchText1 = THISFORM.SearchText3.Value ENDIF IF !EMPTY(THISFORM.SearchText2.Value) oMyFiler.SearchText2 = THISFORM.SearchText3.Value ENDIF IF !EMPTY(THISFORM.SearchText3.Value) oMyFiler.SearchText3 = THISFORM.SearchText3.Value ENDIF oMyFiler.Find(0) Messagebox("Discovered: " + STR(oMyFiler.Files.Count) + " files, will write to Table for viewing...") IF !EMPTY(oMyFiler.Files.Count) SELECT FRESHFILES ZAP FOR nFileCount = 1 TO oMyFiler.Files.Count APPEND BLANK REPLACE FileTitle WITH oMyFiler.Files.Item(nFileCount).Path + oMyFiler.Files.Item(nFileCount).Name REPLACE DateCreated WITH oMyFiler.Files.Item(nFileCount).DateTime REPLACE DateAccess WITH oMyFiler.Files.Item(nFileCount).LastAccessTime REPLACE DateWrite WITH oMyFiler.Files.Item(nFileCount).LastWriteTime ENDFOR THISFORM.ContainrPlus1.GridPlus.Refresh() Endif Else Messagebox("Isufficient information for Search.") Endif ENDWITHHTH,