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