Dateieigenschaften aus der Registerkarte (Details) auslesen und als Text kopieren

Const Liste = "D:\Temp\Namespace-Liste.txt"    'Pfad für Liste mit DetailOf-Namen und zugehöriger Nummer  

Const D_Name = 0
Const D_Dateiversion = 156
Const D_Produktversion = 271


'Dieser Code erzeugt eine Text-Liste mit allen DetailOf-Namen  
Sub ListDetailOfNames()
    Dim objFolder, strName, strText
    
    Set objFolder = CreateObject("Shell.Application").Namespace("C:\Windows")  
    
    For Each strName In objFolder.Items
        For i = 0 To 300
            strText = strText & Right("00" & i, 3) & " - " & objFolder.GetDetailsOf(Null, i) & vbNewLine  
        Next
        Exit For
    Next

    CreateObject("Scripting.FileSystemObject").CreateTextFile(Liste).Write strText  
End Sub


Sub ReadDetailOfFiles()
    Dim objShell, objFolder, strFileName, strName, strDateiversion, strProduktversion
    
    Set objShell = CreateObject("Shell.Application")  
    
    Set objFolder = objShell.Namespace(Wscript.arguments(0))
    
    For Each strFileName In objFolder.Items
        With objFolder
            strName = Split(.GetDetailsOf(strFileName, D_Name), ".")(0)  
            strDateiversion = .GetDetailsOf(strFileName, D_Dateiversion)
            strProduktversion = .GetDetailsOf(strFileName, D_Produktversion)
        End With
    Next
End Sub

objFolder.GetDetailsOf(strFileName, 156)
'oder  
objFolder.GetDetailsOf(strFileName, D_Dateiversion)

'Erzeugt eine Liste (Pfad anpassen) mit DetailOf-Namen und zugehöriger Nummer  
Const Liste = "E:\Test\Namespace-Liste.txt"      

Dim objFolder, strName, strText, i
    
Set objFolder = CreateObject("Shell.Application").Namespace("C:\")  
    
For Each strName In objFolder.Items
    For i = 0 To 300
        strText = strText & Right("00" & i, 3) & " - " & objFolder.GetDetailsOf(Null, i) & vbNewLine  
    Next
    Exit For
Next

CreateObject("Scripting.FileSystemObject").CreateTextFile(Liste).Write strText  

@echo off
powershell.exe ".'E:\Pfad zum Script\show_fileattributes.ps1' '%~1'"  
pause

param(
    [parameter(mandatory=$true)][ValidateNotNullOrEmpty()][string]$file
)

function Add-ExtendedFileProperties{
 <#
     .SYNOPSIS
        Fügt erweiterte Eigenschaften von Dateien an das Objekt in der Pipline hinzu
     .DESCRIPTION
        Extrahiert erweiterte Eigenschaften von Dateien wie z.B. Exif-Daten, Musik- bzw. Filmdetails
     .EXAMPLE 
            Get-ChildItem "C:\Temp" | Add-ExtendedFileProperties -PropertyExtended "Bildhöhe","Bildbreite","Bitrate" | ft Name,Bildhöhe,Bildbreite,Bitrate  
            Fügt alle nur die Eigenschaften "Bildhöhe","Bildbreite","Bitrate" als zusätzliche Spalten dem Objekt in der Pipline hinzu  
     .EXAMPLE
            Get-ChildItem "C:\Temp" | Add-ExtendedFileProperties | fl *  
            Fügt alle verfügbaren erweiterten Eigenschaften dem Objekt in der Pipline hinzu
     .PARAMETER PropertyExtended
        Mit diesem Parameter geben sie eine Komma-Separierte Liste von Eigenschaften an welche sie erhalten möchten.
            -PropertyExtended "Bildhöhe","Bildbreite","Bitrate"  
#>
    param(
        [Parameter(Mandatory=$true,ValueFromPipeline=$True,ValueFromPipelineByPropertyName=$True)]
        $fileItem,
        [String[]] $PropertyExtended = "ALL"  
    )
    begin
    {
        $shellObject = New-Object -Com Shell.Application
        $itemProperties = $null
    }

    process
    {
        if($fileItem.PsIsContainer)
        {
            $fileItem
            return
        }
        $directoryName = $fileItem.DirectoryName
        $filename = $fileItem.Name

        $folderObject = $shellObject.NameSpace($directoryName)
        $item = $folderObject.ParseName($filename)

        if(-not $itemProperties)
        {
            $itemProperties = @{}
            $counter = 0
            $columnName = ""  
            if ($PropertyExtended -eq "ALL"){  
                 #get all properties
                do {
                    $columnName = $folderObject.GetDetailsOf($folderObject.Items, $counter)
                    if($columnName) { $itemProperties[$counter] = $columnName }
                    $counter++
                }while($columnName)
            }else{
                #get user defined properties
                do {
                    $columnName = $folderObject.GetDetailsOf($folderObject.Items, $counter)
                    foreach($name in $PropertyExtended){
                        if ($columnName.toLower() -eq $name.toLower()){
                            $itemProperties[$counter] = $columnName
                        }
                    }
                    $counter++
                }while($columnName)
            }
        }

        foreach($itemProperty in $itemProperties.Keys)
        {
            $fileItem | Add-Member NoteProperty $itemProperties[$itemProperty] `
                $folderObject.GetDetailsOf($item, $itemProperty) -ErrorAction `
                SilentlyContinue
        }
        $fileItem
    }
}
if ((Test-Path $file)){
    dir $file | Add-ExtendedFileProperties -PropertyExtended Dateiversion,Produktversion | fl Dateiversion,Produktversion
}else{
    write-host "Die Datei konnte nicht gefunden werden" -ForegroundColor Red  
}

@echo off
powershell.exe ".'D:\Datei-Eigenschaften auslesen\GetFileproperties.ps1' '%~1'"  
pause

C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -nologo -noexit -File "D:\Datei-Eigenschaften auslesen\GetFileproperties.ps1"

C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -nologo -noexit -File ".\GetFileproperties.ps1"