Sono alle prime armi,vorrei creare un programmino chi si connetta al mio ftp.
Ad esempio ho
Nome utente:GiGa91
Passw:vbs.(col puntofinale)
host:GiGa91.altervista.org
Io per farlo connettere devo scrivere:
Ftp.Inet1.Execute "giga91.altervista.org"
Giusto?xke non mi si connette?
grazie anticipatamente
ho risolto cosi:
Inet1.Execute ""&"giga91.altervista.org"
ma ho un altro problema,cerco di scaricare un file dal mio ftp ma non riesco.
Ad esempio nel mio ftp è presente un file che si chiama kaspersky.rar
e per scaricarlo uso questa stringa:
Inet1.Execute "", "Get " & "kaspersky.rar" & " " & "kaspersky.rar"
perche non va?
e sopratutto la destinazione come la imposto?
Ecco come connettersi ad un ftp e hostare, eliminare, rinominare file e tutto cio che volete
Imports System
Imports System.IO
Imports System.Threading
Imports System.Web
Imports System.Text
Imports System.Net
Public Class Form1
Public WithEvents web As New WebClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num As String = "goldspace.altervista.org/img_hosting/… Dim ftp As FtpWebRequest = WebRequest.Create(num)
ftp.Credentials = New NetworkCredential("Pippo", "MyPasswd"
ftp.Method = Net.WebRequestMethods.Ftp.UploadFile 'o altri metodi
Dim sw As New StreamWriter(ftp.GetRequestStream)
sw.Write(Image.FromFile(Me.OpenFileDialog1.FileName))
sw.Close()
num = num.Replace("ftp", "http"
Me.TextBox1.Text = num
End Sub
End Class
Public WithEvents web As New WebClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num As String = "FILE DA UPLOADARE O INDIRIZZO DEL TUO SITO FTP"
Dim ftp As FtpWebRequest = WebRequest.Create(num)
ftp.Credentials = New NetworkCredential("USERNAME", "PASSWORD"
ftp.Method = Net.WebRequestMethods.Ftp.UploadFile 'QUI SCEGLI IL METODO
Dim sw As New StreamWriter(ftp.GetRequestStream) O READER A SECONDA DI COSA HAI SCELTO
sw.Write(Image.FromFile(Me.OpenFileDialog1.FileName)) O READ.......
sw.Close()
num = num.Replace("ftp", "http"
Me.TextBox1.Text = num
End Sub
End Class