FTP Script To Download Files

I have the following FTP Script task to Download files.. The Script Task Succeeds but no files gets downloaded..Any ideas why?


Imports System

Imports System.Data

Imports System.Math

Imports Microsoft.SqlServer.Dts.Runtime

Public Class ScriptMain



Public Sub Main()

Try



Dim cm As ConnectionManager = Dts.Connections.Add("FTP")



cm.Properties("ServerName").SetValue(cm, "Site")

cm.Properties("ServerUserName").SetValue(cm, "name")

cm.Properties("ServerPassword").SetValue(cm, "password")

cm.Properties("ServerPort").SetValue(cm, "21")

cm.Properties("Timeout").SetValue(cm, "0")

cm.Properties("ChunkSize").SetValue(cm, "1000")

cm.Properties("Retries").SetValue(cm, "1")


Dim ftp As FtpClientConnection = New FtpClientConnection(cm.AcquireConnection(Nothing))

ftp.Connect()


Dim files() As String



files(0) = "/*.zip"

ftp.ReceiveFiles(files, "C:Temp", True, True)

ftp.Close()


Catch ex As Exception

Dts.TaskResult = Dts.Results.Failure

End Try

Dts.TaskResult = Dts.Results.Success



End Sub



Thanks for any help in advance