Une question sur FileUpload

jihednond Messages postés 143 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 3 septembre 2011 - 29 déc. 2009 à 11:37
jihednond Messages postés 143 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 3 septembre 2011 - 29 déc. 2009 à 19:22
bonjour
je voulez faire un simple upload de mes images en vb.net je n'ai eu pas d'erreur dans le code mais upload ne fonctionne toujours pas j'ai chercher dans le forum sur internet mes les code était parfois trop compliqué ou qui me retourne des erreur
alors je suis confus

mon code:
 
Try
            My.Computer.Network.UploadFile("C:\image.jpg", "ftp://members.lycos.co.uk/mail/image.jpg", "user", "pass")
        Catch ex As Exception
            MessageBox.Show("Access failed" & vbCrLf & ex.Message)
        End Try


j'ai confidence en vous et merci d'avance

4 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
29 déc. 2009 à 14:51
ne mentionne pas le nom de destination :

My.Computer.Network.UploadFile("C:\image.jpg", "ftp://members.lycos.co.uk/mail", "user", "pass")



source

Renfield - Admin CodeS-SourceS - MVP Visual Basic
0
scromania Messages postés 452 Date d'inscription dimanche 20 août 2006 Statut Membre Dernière intervention 11 janvier 2013 9
29 déc. 2009 à 15:17
dim IP as string
dim User as string
dim Passe as string
dim Port as string

dim LinkFTP as string
LinkFTP = "ftp://" & User & ":" & Passe & "@" & IP & ":"& Port

Try
My.Computer.Network.UploadFile("C:\image.jpg", LinkFTP & "/mail/image.jpg")
Catch ex As Exception
MessageBox.Show("Access failed" & vbCrLf & ex.Message)
End Try
attention tu ecrasera à chaque fois la meme image donc incrémente là
scromania
0
scromania Messages postés 452 Date d'inscription dimanche 20 août 2006 Statut Membre Dernière intervention 11 janvier 2013 9
29 déc. 2009 à 15:21
au faite je n'est pas précisé

dim IP as string = "members.lycos.co.uk/mail"
dim User as string = "User"
dim Passe as string = "MDP"
dim Port as string = "21" '(si part default)
0
jihednond Messages postés 143 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 3 septembre 2011 1
29 déc. 2009 à 19:22
bonjour je m'excuse pour avoir mentionner le nom de destination

merci scromania j'ai test test le script mes j'ai obtenu le même erreur

en tout cas merci bonne méthode

bon je suis en cour de recherche sur internet..

erreur:

Access failed

The underlying connection was closed: An unexpected error occurred on a receive.

0
Rejoignez-nous