Keskustelu: Ohjelmointikysymykset: VB6: Tiedoston siirto ftp-palvelimelle (vb)

Private Sub Command1_Click()
Open "test.txt" For Append As #1
'luodaan test.txt tiedosto jos sitä ei ole luotu
Write #1, Text1.Text 'kirjoitettaan teksti
Close #1
'Suljetaan tiedosto

MsgBox "Tiedosto tallennettu"
   With Inet1
       'määritetään protokolla (FTP) ja palvelimen osoite
       .Protocol = icFTP
       .URL = "ftp://ftp.palvelimennimi.fi"
       'määritetään käyttäjätunnus ja salasana
       .UserName = "kake"
       .Password = "123abc"
       'lähetetään tiedosto oman hakemiston juureen
       .Execute , "PUT \testi.txt /testi.txt"
       'odotetaan, kunnes tiedosto on lähetetty
       Do While Inet1.StillExecuting
           DoEvents
       Loop
       'suljetaan yhteys
       .Execute , "CLOSE"
   End With
   MsgBox "Tiedoston siirto Suoritettu"
End Sub