Export Farm Solution wsp Files SharePoint 2007 and 2010

[System.Reflection.Assembly]::LoadWithPartialName("Microsoft.SharePoint")
$farm = [Microsoft.SharePoint.Administration.SPFarm]::Local
$farm.Solutions | % {
 $filename = ($pwd.ToString() + "\" + $_.SolutionFile.Name);
 write-host ("Saving" + $filename);
 $_.SolutionFile.SaveAs($filename)
}