Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
TSNEX_FTP_Download.bas
| Uploader: |  ThePuppetMaster |
| Datum/Zeit: | 21.01.2008 21:34:51 |
'##############################################################################################################
' FTP_Download mit TSNE Version 2 (Extensions)
'##############################################################################################################
'##############################################################################################################
'Das Programm wird mit einer Kommandozeile aufgerufen
'z.B. "TSXNEX_FTP_Download ftp://WasWeisIch.de/BlaBlub.bmp"
'##############################################################################################################
'##############################################################################################################
' Die Erweiterungsdatei von TSNE_V2 einbinden
#include once "TSNEX_FTP.bi"
'##############################################################################################################
' Programm beginnen
Print "Führe Anfrage aus..."
' Variable für Statusrückgabe erstellen
Dim T as String
Dim BV as Long
Dim XReturnFolderD() as String
Dim XReturnFolderC as ULong
Dim XReturnFileD() as String
Dim XReturnFileC as ULong
Dim X as ULong
T = Command
' Aufruf ausführen
Print "Download von: " & T & "...";
' Wird im Ziel-Parameter nichts angegeben, geht die Funktion davon aus,
' das die Datei im Home-Verzeichniss unter dem Namen abgespeichert wird,
' der als Quelle in der URL steht. Ansonsten wird der Dateiname genutzt
' der im Zielparameter definiert wurde. Sollte kein Dateiname jedoch ein
' Pfad angegeben werden, wird ebenfalls der Dateiname der Quelle genutzt
' allerdings im angegebenen Verzeichniss gespeichert.
' Der dritte Parameter gibt an, ob eine Existierende Datei gelöscht werden
' werden soll. Davon wird grundsätzlich abgeraten! Löschen von Datein
' sollte grundsätzlich das Programm durchführen, und keine Bibliothek,
' auser man ist sich GANZ SICHER!!! das der Löschvorgang keine unerwünschen
' Datein zerstört!
BV = TSNEX_FTP_Download(T, "", 1)
If BV = 0 Then
Print "[OK]"
Else
Print "[FEHLER]"
Print "Fehler-Beschreibung: " & TSNEX_Get_GURUCode(BV)
End If
' Programm beenden
End