Ftp sans ocx en dotnet

Commenter

Contenu du snippet

FTP TRANSPOSE SOUS DOTNET
ce code est pas tout a fait de moi
j'ai repris un code vb6 que j'ai transpose en DOTNET
(l'original est la : http://www.vbfrance.com/article.aspx?Val=1850)
mais bon c tellement mieux quand on a deja le truc qui est tout fait

Source / Exemple : 


Public Sub ftp()
        Dim filename As String
        'Va créer un fichier temporaire avec les informations de votre compte FTP
        filename = "C:\tempupload.txt"
        Dim diese1 As New System.IO.FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
        Dim w As New StreamWriter(diese1)
        w.BaseStream.Seek(0, SeekOrigin.Begin)
        'Open "filename" For Output As #1
        w.WriteLine("open " + "ftp.alsiope.com") 'L'adresse ftp ex: ftp.alsiope.com
        w.WriteLine("USER " + "ronan")  ' Votre nom d'utilisateur ex: ronan
        w.WriteLine("pass") 'Votre mot de passe ex: pass
        w.WriteLine("cd " + "/html/")
        w.WriteLine("put " + "a_uploader")'attention le fichier a_uploader doit se trouver sous le meme repertoire que l'appli
        w.WriteLine("quit")
        w.Flush()
        w.Close()
        Shell("ftp -n -s:" & filename, AppWinStyle.MaximizedFocus, True, 10000)
        'L'opération est affichée comme ca ca fait une sorte de log... c plus pro :-)
        'FINALLEMENT, tempupload.txt est supprimé du disque
        Kill(filename)
        'Et voila!! C'est aussi simple que ca! 
    End Sub

Conclusion :


alors je remercie quand meme le concepteur du code original : Alexandre Gauthier

A voir également

S'inscrire maintenant

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.

Du même auteur (ronanry)