Public CB_ftp As FtpWebRequest = Nothing
    Public CB_ftp_resp As FtpWebResponse = Nothing
 
    Public Function CB_FTP_CONNECT(ByVal FTP_HOST As String, ByVal User As _
      String, ByVal PSW As String) As Boolean
        Dim ok As Boolean = False
        Dim FileList As String = ""
        'Local_Phath = Replace(Local_Phath, "/", "\")
        FTP_HOST = Replace(FTP_HOST, "\", "/")
        'If Microsoft.VisualBasic.Right(Trim(Local_Phath), 1) <> "\" Then 
        ' Local_Phath = Trim(Local_Phath) & "\"
        If Microsoft.VisualBasic.Right(Trim(FTP_HOST), 1) <> "/" Then _
          FTP_HOST = Trim(FTP_HOST) & "/"
        Try
            CB_ftp = WebRequest.Create(FTP_HOST)
            CB_ftp.Credentials = New NetworkCredential(User, PSW)
            'My.Computer.Network.UploadFile(Local_Phath & Local_File, FTP_HOST 
            ' & Local_File, User, PSW, False, CB_TimeOUT, 
            ' FileIO.UICancelOption.DoNothing)
            'x = CB_ftp.ResponseHeaders
            CB_ftp_resp = CType(CB_ftp.GetResponse(), FtpWebResponse)
            FileList = System.Net.WebRequestMethods.Ftp.ListDirectory
            ok = True
        Catch ex As Exception
            ok = False
        End Try
        Return ok
    End Function