Dim ftpFileNameListXML As New StringBuilder ftpFileNameListXML.AppendLine("<filelist>") Dim ftpcm As ConnectionManager = Dts.Connections("FTP") Dim ftp As FtpClientConnection = _ New FtpClientConnection(ftpcm.AcquireConnection(Nothing)) Dim ftpFileNames() As String Dim ftpFolderNames() As String ftp.Connect() ftp.SetWorkingDirectory(Dts.Variables("FtpWorkingDirectory").Value.ToString()) ftp.GetListing(ftpFolderNames, ftpFileNames) ftp.Close() Dim i As Integer For i = 0 To ftpFileNames.GetUpperBound(0) ftpFileNameListXML.Append("<file name="")<br mode="hold" /> ftpFileNameListXML.Append(ftpFileNames(i))<br mode="hold" /> ftpFileNameListXML.AppendLine("" />") Next i ftpFileNameListXML.AppendLine("</filelist>") Dts.Variables("FtpFileListXML").Value = ftpFileNameListXML.ToString() Dts.TaskResult = ScriptResults.Success
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)