Net.ServicePointManager.ServerCertificateValidationCallback = AddressOf validateCert
            Dim sAdd As String = IIf(sAction = "NLST", "", "/" & sFile)
            Dim request As FtpWebRequest = DirectCast(WebRequest.Create(msFtpServer & sAdd), FtpWebRequest)
            request.Method = sAction
            request.EnableSsl = True
            request.Credentials = oNc
            Select Case sAction
                Case "RENAME"
                    request.RenameTo = sNewName
                    request.KeepAlive = False
                    request.GetResponse.Close()
                    Exit Sub
            End Select
            Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
            Select Case sAction
                Case "NLST"
                    Dim reader As New StreamReader(response.GetResponseStream())
                    Dim str As String = reader.ReadLine
                    cFiles = New Collection
                    Do Until str Is Nothing
                        Try
                            cFiles.Add(str, str)
                        Catch ex As Exception
                        End Try
                        str = reader.ReadLine
                    Loop
                    reader.Close()
                Case "STOR"
                    Dim oFile As FileInfo = New FileInfo(msTmpStorage & "\" & sFile)
                    Dim fileContents(oFile.Length) As Byte
                    Using fr As FileStream = oFile.OpenRead
                        fr.Read(fileContents, 0, Convert.ToInt32(oFile.Length))
                    End Using
                    Using writer As Stream = request.GetRequestStream
                        writer.Write(fileContents, 0, fileContents.Length)
                    End Using
                Case "RETR"
                    Dim responseStream As Stream = response.GetResponseStream
                    Dim fs As New FileStream(msTmpStorage & "\" & sFile, FileMode.Create)
                    Dim buffer(2047) As Byte
                    Dim read As Integer = 1
                    Do While read <> 0
                        read = responseStream.Read(buffer, 0, buffer.Length)
                        fs.Write(buffer, 0, read)
                    Loop
                    fs.Flush()
                    fs.Close()
                    responseStream.Close()
            End Select
            response.Close()