Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
test_ftp_list.bas
| Uploader: |  ThePuppetMaster |
| 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