Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [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_List.bas

Uploader:MitgliedThePuppetMaster
Datum/Zeit:21.01.2008 21:32:48

'##############################################################################################################
' FTP_List mit TSNE Version 2 (Extensions)
'##############################################################################################################



'##############################################################################################################
'Das Programm wird mit einer Kommandozeile aufgerufen
'z.B. "TSXNEX_FTP_List http://www.google.de"
'##############################################################################################################



'##############################################################################################################
'   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 "Liste von: " & T & "...";
BV = TSNEX_FTP_List(T, XReturnFolderD(), XReturnFolderC, XReturnFileD(), XReturnFileC)
If BV = 0 Then
    Print "[OK]"
    Print "== Es folgen die Daten! =="
    Print "-Verzeichnisse-"
    For X = 1 to XReturnFolderC
        Print XReturnFolderD(X)
    Next
    Print ""
    Print "-Datein-"
    For X = 1 to XReturnFileC
        Print XReturnFileD(X)
    Next
Else
    Print "[FEHLER]"
    Print "Fehler-Beschreibung: " & TSNEX_Get_GURUCode(BV)
End If
'   Programm beenden
End