Uploader des fichier [Résolu]

cs_mayna21 10 Messages postés lundi 30 juillet 2007Date d'inscription 6 avril 2009 Dernière intervention - 2 avril 2009 à 19:25 - Dernière réponse : cs_mayna21 10 Messages postés lundi 30 juillet 2007Date d'inscription 6 avril 2009 Dernière intervention
- 3 avril 2009 à 01:36
Salut,

je developpe une application sous Vb.net et je veux afficher la

fenetre 'parcourir' pour pouvoir uploader des fichier dans une

repertoire comme un objet de type FILE dans HTML


je suis vraiment besoin de votre aide.

merci d'avance
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
cs_Willi 2381 Messages postés jeudi 12 juillet 2001Date d'inscription 13 février 2015 Dernière intervention - 2 avril 2009 à 19:45
3
Merci
Bonjour,
Pour afficher une boîte de dialogue Ouvrir utilise la classe OpenFileDialog. Un exemple est donné sur la msdn.
Pour uploader un fichier il y a un bout de code en exemple ici
++

Merci cs_Willi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

Commenter la réponse de cs_Willi
cs_mayna21 10 Messages postés lundi 30 juillet 2007Date d'inscription 6 avril 2009 Dernière intervention - 3 avril 2009 à 01:33
0
Merci
@Willi : sa marche bien mais sa reste un petit problem c'est que My.Computer.Network.UploadFile("<localpath>", "<hostpath>")
<localpath> ??????


Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myStream As IO.Stream
Dim openFileDialog1 As New OpenFileDialog()

openFileDialog1.InitialDirectory = "c:"
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True

If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = openFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Insert code to read the stream here.
My.Computer.Network.UploadFile("?????", "ftp://ftp.abc.com/", "aaa", "bbbb")
myStream.Close()
MessageBox.Show("File downloaded")
End If
End If
End Sub</localpath></hostpath></localpath>
Commenter la réponse de cs_mayna21
cs_mayna21 10 Messages postés lundi 30 juillet 2007Date d'inscription 6 avril 2009 Dernière intervention - 3 avril 2009 à 01:36
0
Merci
@Willi : sa marche bien mais sa reste un petit problem c'est que My.Computer.Network.UploadFile("<LocalPath>", "<HostPath>")
<LocalPath> ????
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myStream As IO.Stream
Dim openFileDialog1 As New OpenFileDialog()

openFileDialog1.InitialDirectory = "c:"
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True

If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = openFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Insert code to read the stream here.
My.Computer.Network.UploadFile("LocalPath?????", "ftp://ftp.abs.com/", "aaa", "bbbb")
myStream.Close()
MessageBox.Show("File downloaded")
End If
End If
End Sub
Commenter la réponse de cs_mayna21

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.