Mit Powershell den Inhalt einer Excel mit einer Text Datei abgleichen

# ====== VARIABLEN ============
# Quelldatei Excel
$quelleExcel = 'D:\test_daten.xlsm'  
# Quellordner dessen Ordnernamen ausgelesen werden
$directory = 'D:\Root'  
# =============================
if ($PSVersionTable.PSVersion.Major -lt 3){write-host "ERROR: Minimum Powershell Version 3.0 is required!" -F Yellow; return}    
# Excel Objekt
$objExcel = New-Object -Com Excel.Application
# Mappe readonly öffnen
$wb = $objExcel.Workbooks.Open($quelleExcel)
# Excel anzeigen wenn gewünscht
# $objExcel.Visible = $true
# Meldungen unterdrücken
$objExcel.DisplayAlerts = $false
# Worksheet Variablen zuweisen
$ws = $wb.Sheets.Item(1)
# letzte belegte Zelle in Spalte A ermitteln
$rnglast = $ws.Cells($ws.Rows.Count,1).End(-4162)
# Daten aller belegten Zeilen in Spalte A holen
$data = $ws.Range("A1:A" + $rnglast.Row).Value()  
# Daten aus Excel-Datei mit den Namen der Ordner vergleichen und nur "singles" ausfiltern 
$newdata = compare @($data) @((gci $directory -Directory -Name)) -PassThru | ?{$_.SideIndicator -eq '=>'}  
if ($newdata.Count -gt 0 ){
    write-host "Füge folgende Zeilen zur Exceldatei hinzu:" -F Green  
    $newdata
    # 2-dim Array erstellen und Daten zuweisen
    $arrData = New-Object 'object[,]' $newdata.Count,1  
    0..($newdata.count-1) | %{
        $arrData[$_,0] = $newdata[$_]
    }
    # neue Daten am Ende von Spalte A ergänzen
    $rngNew = $rnglast.Offset(1,0).Resize($newdata.Count,1)
    $rngNew.NumberFormat = '@'  
    $rngNew.Value() = $arrData
}
# Dokument speichern und schließen
$wb.Save() | out-null
$wb.Close($true) | out-null
# Meldungen wieder einschalten
$objExcel.DisplayAlerts = $true
# Excel schließen
$objExcel.Quit() | out-null
# Ressourcen freigeben
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($objExcel) | out-null

$data = $ws.Range("A1:A" + $rnglast.Row).Value()