Qui c'è una dll free http://www.mentalis.org/classlib/class.php?id=23
Qui c'è la spiegazione del pdf http://abmcr.europe.webmatrixhosting.net/TEMP/FTP.pdf.
questo è quanto provato ma non va.Un aiuto...
<%@ 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 = "palladio"
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>
</form>
</body>
</html>
Rispondi quotando
