unction App_SearchSubFolder(keyword As String, rSearchSubFolders As Boolean) Dim fd As Object Dim fso As Object