Rename Long Filenames

gistfile1.txt

$longnames = Get-ChildItem -Path "C:\Users\Tom\OneDrive\Documents\Microsoft\Nexthop Archive\" -Recurse | select-object fullname,name, @{Name="Nlength";Expression={$_.Name.Length}} | Where-Object Nlength -GT 35

Foreach ($name in $longnames)
      {
      $newname = "$($name.Name.Substring(0,6))" + ".html"

      Write-Host $newname

      Rename-Item -Path $name.Fullname -NewName $newname
      }