Keskustelu: Ohjelmointikysymykset: VB6: Tiedosto nettiin. VB6

Tossa: https://www.ohjelmointiputka.net/keskustelu/4003-tiedosto-netissä
Keskustelussa on toi koodi ja ohjeet miten toi tehdään, mutta en saa toimimaan. Mitään virheilmotusta ei tule ja luulen, että olen laittanut kaiken oiken, mutta oiskohan kellään ideaa mikä mättää tai mitä en osaa?

Hmmm.... selvännäkijä kun olen arvelen ettei tiedosto siirry sinne mihin sen tarkoitit. Ja selvännäkijänä löydän virheen koodistasi - tuossahan se - ei kun korjaamaan!

Oikeasti - Kertoisitko mikä meni pieleen, mihin yritit tiedostoa siirtää, oliko tunnarit oikeat? Laittaisitko edes lähdekoodin tänne...

Tuohan on ongelma, jonka kanssa itse tappelin aikani. Kotisivun osoite on http;//personal.inet.fi/atk/korant, mutta ftp-yhteys pitikin luoda osoitteeseen ftp://personal.inet.fi Siis nuo loppu rimpsut pois. Ne korvataan tunnareilla. Näin Soneran kotisivupalvelimella, muista en tiedä.

http://www.freevbcode.com/ShowCode.Asp?ID=1038
Tuolta löytyy siis se koodi. Ja muutin siihen (ainakin luulisin niin) kaikki oikein. Ja kokeilin ftp:llä ja http:llä ja laitoin kyllä osoitteeksi koti.mbnet.fi ja tunnukset sun muut oikein. Mutta ei. Johtuneekohan siitä etten vaan osaa :/

Tässä on kopsattuna koodi, jolla sain tiedostosiirron toimimaan. Muuta vaan osoitteet ja tunnukset.

Private Sub Command1_Click()
  With Inet1
       .Protocol = icFTP
       .URL = "ftp://personal.inet.fi/"
       .UserName = "ktunnus"
       .Password = "salasana"
       .Execute , "PUT " & App.Path & "\test.txt /test.txt"
       Do While Inet1.StillExecuting
           DoEvents
       Loop
       .Execute , "CLOSE"
   End With
   Caption = "Inet lähetetty!"
End Sub

Private Sub Command2_Click()
  With Inet1
       'määritetään protokolla (FTP) ja palvelimen osoite
       '.Protocol = icFTP
       .URL = "ftp://personal.inet.fi/"
       'määritetään käyttäjätunnus ja salasana
       .UserName = "ktunnus"
       .Password = "salasana"
       'lähetetään tiedosto
       .Execute , "GET test.txt " & App.Path & "\test2.txt"
       'odotetaan, kunnes tiedosto on lähetetty
       Do While Inet1.StillExecuting
           DoEvents
       Loop
       'suljetaan yhteys
       .Execute , "CLOSE"
   End With
   DoEvents
   File1.Refresh
   Open App.Path & "\test2.txt" For Input As 1
   Text1 = Input(LOF(1), 1)
   Close
End Sub

Joo... Viitsisitkö pikkusen valottaa vielä tosta... Eli mitä laitan formille ja mikä on ideana missäkin... Siis saahan tosta kyllä selville mitä formille, mutta "käyttöohjeet olis kovat". :)

Inet1 nimisen internet transfer controllin.

No kyllähän mä nyt sen verran tajusin... :) Mutta siis Kun tossa on kaks cmdButtonia ja kaikkee ni en oikeen vielä hokannu systeemiä sillai...

Lomakkeella on painikkeet Command1 ja Command2 ja tekstiboxi Text1, jonka multiline=true. Testitiedosto test.txt on samassa kansiossa ja paluutiedostoa test2.txt ei saa olla ennestään, muutoin GET ei palauta mitään.