Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

TSNEX_FTP_Download.bas

Uploader:MitgliedThePuppetMaster
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