Searches TFS shelvesets for a filename / pattern

Find-Shelveset.ps1

# Finds all shelvesets containing the specified filename.
# Default SearchMode is 'Like', which supports wildcards
# Example usage:
#     Find-Shelveset *.ps1
#     Find-Shelveset 'Changelog\d+\.txt' -SearchMode Regex
Function Find-Shelveset
{
    param 
    (
        [string]$FileName,
        [ValidateSet('Like','Exact','RegEx')]
        [string]$SearchMode
    )

    [void][Reflection.Assembly]::LoadWithPartialName('Microsoft.TeamFoundation.Client')
    [void][Reflection.Assembly]::LoadWithPartialName('Microsoft.TeamFoundation.VersionControl.Client')
    [void][Reflection.Assembly]::LoadWithPartialName('Microsoft.TeamFoundation.Build.Client')

    $searchFunc = 
        switch($SearchMode)
        {
            'RegEx' {{ $_ -match $FileName }}
            'Exact' {{ $_ -eq $FileName }}
            default {{ $_ -like $FileName }} #Like
        }

    $workspaceInfo = [Microsoft.TeamFoundation.VersionControl.Client.Workstation]::Current.GetLocalWorkspaceInfo((Get-Location))
    $tpc = new-object Microsoft.TeamFoundation.Client.TfsTeamProjectCollection $workspaceInfo.ServerUri
    $vcs = $tpc.GetService([Microsoft.TeamFoundation.VersionControl.Client.VersionControlServer])

    $shelvesets = $vcs.QueryShelvesets($null, $workspaceInfo.OwnerName)
    foreach ($shelveset in $shelvesets)
    {
        $files = $vcs.QueryShelvedChanges($shelveset).PendingChanges.FileName | % { $_ }
        $targets = ($files | ? $searchFunc)
        if ( $targets.Count )
        {
            Write-Host ($shelveset.Name + "`r`n" + ($targets | % { "`t$_`r`n" }))
        }
    }
}