none
Problème pour utiliser un ftp !!!! RRS feed

  • Question

  • Voici le code que j'utilise :

    Dim fichier As String = getChemImgFtp()
                '        proxyCLient.LoginProxyHTTP = getLoginProxy()
                Try
                    Dim nomsFichiers As New List(Of String)()

                    ' Connexion au serveur FTP pour vérifier l'existence du fichier
                    Dim repertoireFTP As String = getChemImgFtp.Trim()
                    'If Not repertoireFTP.StartsWith("/") Then
                    'repertoireFTP = New StringBuilder("/").Append(repertoireFTP).ToString()
                    'End If
                    Dim nomRepertoire As String = New StringBuilder(getAdresseFtp() + "/").Append(repertoireFTP).ToString()
                    'If Not nomRepertoire.EndsWith("/") Then
                    '    nomRepertoire = New StringBuilder(nomRepertoire).Append("/").ToString()
                    'End If

                    Dim ftp As FtpWebRequest = DirectCast(FtpWebRequest.Create(nomRepertoire), FtpWebRequest)
                    ftp.Method = WebRequestMethods.Ftp.ListDirectory

                    If Not getLoginFtp.Equals("") Then
                        ftp.Credentials = New NetworkCredential(getLoginFtp, getMdpFtp, getAdresseFtp)
                    End If
                    ftp.UsePassive = True
                    'If _utilisationProxy Then
                    '    ftp.Proxy = _proxy
                    'End If

                    ' Récupération de l'état de la suppression du fichier
                    Dim response As FtpWebResponse = DirectCast(ftp.GetResponse(), FtpWebResponse)
                    Dim responseStream As Stream = response.GetResponseStream()
                    Dim readStream As New StreamReader(responseStream, System.Text.Encoding.UTF8)
                    While Not readStream.EndOfStream
                        nomsFichiers.Add(readStream.ReadLine())
                    End While
                    response.Close()

                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

    La réponse de l'erreur est :
    Le serveur distant a retourné une erreur : (530) non connecté


    Sauriez-vous me dire pourquoi? je ne trouve pas, et je galère depuis trop longtemps sur ça.

    Merci d'avance.
    mercredi 7 janvier 2009 14:44

Toutes les réponses

  • ne dois-tu pas te connecter au serveur avant?

     

    À quelle ligne obtiens-tu l'erreur, cela pourrait nous aider?

     

    Personnellement, j'utilise nFTP pour mes FTP, je n'ai donc pas à coder tout moi-même

    mercredi 7 janvier 2009 16:56
    Modérateur
  • La ligne qui plante : Dim response As FtpWebResponse = DirectCast(ftp.GetResponse(), FtpWebResponse)

    Et je ne vois pas ce que c'est la connexion ftp, quand je fais un ftp. il ne me donne pas de chose comme connexion.

    Je suis novice en utilisation de ftp via vb.net
    mercredi 7 janvier 2009 16:59
  • Bonjour,

    je ne vois pas la ligne de Connexion au Serveur FTP!

    Exemple:


    Dim fwr As FtpWebRequest = FtpWebRequest.Create(“ftp://ftp.google.com”) 
    fwr.Credentials = New NetworkCredential(“userName”, “password”) 
    fwr.Method = WebRequestMethods.Ftp.ListDirectory 

    jeudi 26 février 2009 15:25