Procura por pastas no Exchange Online e retorna o caminho completo (full path) e seu tamanho

exchange-GetMailboxFolder-FullPath.ps1

# Procura por pastas no Exchange Online e retorna o caminho completo (full path) e seu tamanho
#
# Uso:
#   exchange-GetMailboxFolder-FullPath.ps1 -Find Texto
#
# Instala automaticamente se não encontrado o módulo ExchangeOnlineManagement
# Solicita credenciais para conectar ao Exchange Online se não conectado
#

Param (
  [Parameter(Mandatory = $true)][string]$Find
)


#Verifica se módulo exchangeonline esta instalado
$modules = Get-Module | Select-Object -Property Name
$hasmodule = (@($modules) -like '@{Name=ExchangeOnlineManagement*').Count -gt 0
If ($hasmodule -ne "True") {
  Write-Host "Módulo Exchange Online Management não localizado" -ForegroundColor Red
  Install-Module ExchangeOnlineManagement
}
else {
  Write-Host "Módulo Exchange Online Management localizado" -ForegroundColor Green
}



#Verifica se conectado e faz login no ExchangeOnline com suporte a MFA
$getsessions = Get-PSSession | Select-Object -Property State, Name
$isconnected = (@($getsessions) -like '@{State=Opened; Name=ExchangeOnlineInternalSession*').Count -gt 0
If ($isconnected -ne "True") {
  Write-Host "Não conectado ao Exchange Online" -ForegroundColor Red
  Connect-ExchangeOnline
}
else {
  Write-Host "Conectado ao Exchange Online" -ForegroundColor Green
}




#Lista de todas as pasta em variavel
$allfolders = Get-MailboxFolder -Identity ":\" -Recurse



$allfolders `
| Where FolderPath -Match $Find `
| Sort-Object -Descending FolderSize `
| Select Name, Identity, HasSubFolders, @{Name = "Size MB"; Expression = { [Math]::Ceiling($_.FolderSize / 1MB) } }, FolderPath `
| FT