Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [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

test_ftp_list.bas

Uploader:MitgliedThePuppetMaster
Datum/Zeit:26.01.2009 03:42:10
Hinweis: Dieser Quelltext ist Bestandteil des Projekts TSNEX V2/V3 (Extension), zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

'##############################################################################################################
'FTP_List TEST-CLIENT für TSNE_V3 und TSNEX_V3
'##############################################################################################################



'##############################################################################################################
#include once "TSNEX_V3.bi"             'Wir binden die TSNE-X Version 3 ein. Sie beinhaltet bereits die TSNE_V3



'##############################################################################################################
Dim DD() as String                      'Array für Verzeichnisse
Dim DC as UInteger                      'Anzahl Verzeichnisse im Array
Dim FD() as String                      'Array für Dateien
Dim FC as UInteger                      'Anzahl Dateien im Array


'Die URL Definieren. Sie wird per Commandline übergeben und muss folgendermassen aufgebaut sein:
'ftp://[<benutzername>[:<Passwort>]@]<Hostname>.<Domain>/[<verzeichniss>]/[<Dateiname>][.<Dateierweiterung>]
Dim XURL as String = Command()


'Hier rufen wir die LIST Funktion für FTP auf.
'Dabei übergeben wir der Funktion eine Komplette URL, welche bereits Host / Port / User und Passwort enthält.
'Alternativ können auch alle Angaben direkt der Funktion übergeben werden, falls keine URL verwendet werden soll.
Dim RV as Integer = TSNEX_FTP_List(XURL, , , , , DD(), DC, FD(), FC)


If RV <> TSNEX_Const_NoError Then         'Prüfen, ob die Abfrage erfolgreich war. Wenn nicht
    Print TSNEX_GetGURUCode(RV)             'dann geben wir den Fehlercodezurück
    End -1                                  'Und beenden das Programm
End If


Print "= Folder ="                          'Andernfalls geben wir die Verzeichnisse aus
For X as UInteger = 1 to DC                 'Von 1 bis Anzahl Verzeichnisse im Array
    Print " "; DD(X)                        'Verzeichnissname ausgeben
Next

Print "= Files ="                           'Das selbe mit den Dateinamen
For X as UInteger = 1 to FC
    Print " "; FD(X)
Next


End 0                                       'Zum schluss das Programm sauber beenden