[internet] avattu ftp serverin pidike
[tiedosto] tiedosto joka poistetaan
Funktio palauttaa numeron 1 jos onnnistui, 0 jos ei onnistunut
Funktiolla voidaan poistaa ftp serveriltä tiedosto.
Ennen latausta täytyy yhdistyä internettiin ja ftp-serverille internet() -funktiolla.
ihan1=internet(,) /* yhdistetään internettiin */
if ihan1<=0
? "Internet ei onnistu"
return
endif
ihan2=internet(ihan1,"ftp.datamike.biz","kayttajatunnus","salasana") /* yhdistetään ftp serveriin */
if ihan2<=0
internet(ihan1) /* suljetaan internet yhteys */
? "tunnukset väärin"
return
endif
apu=ftpdelf(ihan2,"aa.bin") /* poistetaan tiedosto aa.bin */
if apu#1
? "Tiedoston poisto epäonnistui"
else
? "Poisto onnistui"
endif
internet(ihan2) /* suljetaan ftp yhteys */
internet(ihan1) /* suljetaan internet yhteys */