Foro de elhacker.net

 
 Sub cDIRftp(ByVal ip As TextBox, ByVal username As TextBox, ByVal password As TextBox)
        Try
            If ip.Text <> "" And username.Text <> "" And password.Text <> "" Then
                Dim ftp As FtpWebRequest = DirectCast(FtpWebRequest.Create("ftp://" & ip.Text & ubicacion & carpetanueva), FtpWebRequest)
                '/// ************************
                '///NOTE if you need to authenticate with username / password you would add the following 2 lines ...
                Dim cred As New NetworkCredential(username.Text, password.Text) 'user/pass
                ftp.Credentials = cred
                '/// ************************
                ftp.KeepAlive = False
                ftp.AuthenticationLevel = Security.AuthenticationLevel.MutualAuthRequested
                ftp.Method = WebRequestMethods.Ftp.MakeDirectory
                Dim ftpresp As FtpWebResponse = DirectCast(ftp.GetResponse, FtpWebResponse)
                '/// ****
                Dim sreader As New IO.StreamReader(ftpresp.GetResponseStream)
                ftpresp.Close()               
             Else
                'aca dices q falta datos,etc
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub