Discussion :

[Pokerstar]

Bonjour,

Je débute sur VB2005 et j'aimerais pour commencer faire 1 petite appli pour choisir un fichier sur le DD, puis l'envoyer sur mon FTP. Donc après avoir recherché sur google, j'ai écrit ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
...
Try
            Dim User = "???"
            Dim Pass = "???"
            My.Computer.Network.UploadFile(Fichier.Text, "ftp://??.??.??.??/httpdocs/" + Fichier.Text, Login, Pass)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
End Try
...

Et ça m'affiche le message suivant :

Le serveur distant a retourné une erreur : (550) Fichier non disponible (par exemple, fichier introuvable, accès impossible).

Evidemment le dossier "httpdocs" existe et l'utilisateur "User" a le droit d'y écrire (j'ai testé avec la commande DOS "ftp").


EDIT : Pb réglé, je viens de comprendre que j'utilisais "Fichier.Text" après l'URL du FTP alors que c'est un chemin local , ça marche maintenant

[Pokerstar]

Nouvelle question, je n'arrive pas à utiliser Path.GetFileName(OpenFileDialog1.FileName), comment utiliser cette fonction dans VB2005 ?

[niceen]

salut ,
si vous voulez optenir le chemin d'un fichier spécifier voici commentavce le controle OpenFileDialog.

Dim opfil As new OpenFileDialog
opfil.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"
opfil.ShowDialog()
TextBox1.Text = opfil.FileName