FTP code

Last post 01-19-2004 12:51 PM by abmcr. 0 replies.

Sort Posts:

  • FTP code

    01-19-2004, 12:44 PM
    • Member
      165 point Member
    • abmcr
    • Member since 08-28-2003, 12:54 AM
    • Posts 33
    A dll free: http://www.mentalis.org/classlib/class.php?id=23
    The tutorial pdf: http://abmcr.europe.webmatrixhosting.net/TEMP/FTP.pdf.
    But it doesn't work. Thank you for any response

    <%@ Page Language="VB" %>
    <%@ import Namespace="System.Data" %>
    <%@ import Namespace="System.IO" %>
    <%@ import Namespace="System.Threading" %>
    <%@ import Namespace="System.Net.Sockets" %>
    <%@ import Namespace="System.Net" %>
    <%@ import Namespace="System.Text" %>
    <%@ import Namespace="System.Text" %>
    <%@ import Namespace="ASPNET_FTPConnexion" %>
    <script runat="server">

    Private Function UploadFichier(ByVal CheminFichier As String, ByVal nomfichier As String) As Boolean
    ' Prend le fichier du chemin transmis et l'Upload sur le serveur de voulu
    Dim Envoie As New FtpConnection()
    ' Parametres de la connexion
    ' Login et Mot de passe du compte FTP utilisé
    Envoie.Username = "1313"
    Envoie.Password = "r4wa83"
    ' Adresse du Serveur FTP (IP ou URL)
    Envoie.Hostname = "ftp.immobiliarepalladio.com"
    ' Si autre port que le 21 (par défaut)
    Envoie.Port = 21
    ' Si besoin de passer en PASV il faut le mettre à true
    Envoie.Passive = False
    'connexion avec le serveur
    Envoie.Connect()
    If Envoie.IsConnected Then
    ' Changement de répertoire courant si besoin
    'Envoie.ChangeWorkDir("HTDOCS")
    ' Envoie le fichier transmis a partir de son répertoire courant
    ' vers le fichier de destination en mode ASCII (texte)
    Envoie.UploadFile(CheminFichier, nomfichier, FtpConnection.StreamModes.ASCII)
    Envoie.Disconnect()
    Return True
    Else
    Return False
    End If
    End Function


    Sub vai(sender As Object, e As EventArgs)
    Dim ResulUpload As Boolean = False
    ResulUpload = UploadFichier("C:\pippo.txt", "pippo.txt")

    End Sub

    </script>
    <html>
    <head>
    </head>
    <body>
    <form runat="server">
    <asp:Button id="Button1" onclick="vai" runat="server" Text="Button"></asp:Button>
    <!-- Insert content here -->
    </form>
    </body>
    </html>
    Andrea Bersi - ITALY
Page 1 of 1 (1 items)