Public Sub SearchAssets(ByVal intArchiveTime As Integer, ByVal strFromContainerID As String, ByVal mMediaBinServer As MediaBinServer) Dim objCriteria As New MBSearchCriteria objCriteria.mContainerID = strFromContainerID objCriteria.mAssetID = "" objCriteria.mRecursive = True objCriteria.mMaxHits = Integer.MaxValue Dim objMetadata As New MBMetadata objMetadata.mName = "Insertion Time" objMetadata.mID = "{5BE195E7-0726-11D3-9DDE-0060081F836F}" objMetadata.mValue = DateTime.Now.AddDays(-intArchiveTime) Dim objConstraint() As MBSearchConstraint = Nothing ReDim objConstraint(0) objConstraint(0) = New MBSearchConstraint() objConstraint(0).mMetadata = objMetadata objConstraint(0).mSearchOperator = "GreaterThan" objConstraint(0).mBooleanOperator = MBBooleanOperator.NotSet objCriteria.mSearchConstraints = objConstraint Dim objAssets() As MBAsset = Nothing Dim intCount As Integer = 0 Dim strAssetName As String = "" Dim strAssetID As String = "" Dim strAssetPath As String = "" objAssets = mMediaBinServer.Search(objCriteria, False) End Sub