Private pass As String = "asdasd"
Private utente As String = "asdas"
Private url As String = "ftp.nomesito/public_html/"
Private myftp As New FtpClient As "myftp"
Public Sub _new()
End
Public Sub Form_Open()
End
Public Sub Button1_Click()
myftp.URL = url
myftp.User = utente
myftp.Password = pass
myftp.Timeout = 20
Print myftp.Status
myftp.Begin()
myftp.Get()
Print myftp.Status
End
Public Sub myftp_Read()
Dim sbuf As String
If Lof(myftp) Then
Read #myftp, sbuf, Lof(myftp)
Endif
textarea1.text &= sbuf
Print "pippo"
End
Public Sub myftp_Connect()
Print "connesso"
End
Public Sub myftp_Finished()
Print "finito"
End
Public Sub myftp_Error()
Print myftp.ErrorText, "errore"
End
nella text area ottieni la lista dei file/cartelle mi pare
Ok, per ricevere qualcosa dal server FTP ci sono, ho aggiunto il codice
Public Sub MyFtp_Read()
Dim sbuf As String
While (Lof(MyFtp) > 0)
Read #MyFtp, sbuf, 1
TextArea1.Text &= sbuf
Wend
End
Ora però non riesco a capire come trasmettere: se faccio
Public Sub Button2_Click()
Dim msg As String = "CWD incoming" & gb.newline
Write #MyFtp, msg, Len(msg)
End
non viene trasmesso niente....