Sub CSVFile()

Dim SrcRg As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim FName As Variant
FName = Application.GetSaveAsFilename(”", “CSV File (*.csv), *.csv”)

If FName False Then
ListSep = Application.International(xlListSeparator)
If Selection.Cells.Count > 1 Then
Set SrcRg = Selection
Else
Set SrcRg = ActiveSheet.UsedRange
End If
Open FName For Output As #1
For Each CurrRow In SrcRg.Rows
CurrTextStr = “”
For Each CurrCell In CurrRow.Cells
CurrTextStr = CurrTextStr & “”"” & CurrCell.Value & “”"” & ListSep
Next
While Right(CurrTextStr, 1) = ListSep
CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) – 1)
Wend
Print #1, CurrTextStr
Next
Close #1
End If
End Sub

strQualifier = “”””

I did the following to solve this problem:
1) Take a backup of the file /downloader/pearlib/pear.ini
2) Delete (or rename) pear.ini
3) Go to Magento connect manager – the settings are resteted back to “stable”, change it to beta and press save. A new pear.ini file should now be created with the correct path.
4) Done