CreateDirectory
CreateDirectory erstellt ein neues Verzeichnis auf dem entfernten FTPEin Protokoll, das zur Übertragung von Dateien zwischen Netzwerkcomputern verwendet wird.-Server.
Syntax
CreateDirectory(STRING directory)
Bedeutung der Parameter:
Directoryist eine Zeichenfolge.
Rückgabewert
Boolescher Wert. Wenn TRUE zurückgeliefert wird, wurde die Funktion erfolgreich ausgeführt. Ansonsten wurde ein Fehler zurückgegeben. Falls FALSEzurückgegeben wird, liefert FTPObject.LastError den WIN32-Fehlercode.
Beispiel
Beispiel, in dem das aktuelle FTP-Arbeitsverzeichnis ausgegeben wird:
Function Random(N)
Random = Int(N*Rnd)
End Function
Function Main
Dim FTPobj as Object
'nach Bedarf konfigurieren
ip = "127.0.0.1"
port = 21
mode = FALSE
username = "anonymous"
password = "test@lnss.com"
cr = Chr(13) + Chr(10)
'Zufallsgenerator initialisieren
Randomize
'jetzt Zufallszahl zum Anhängen an die Dateinamen generieren
for K = 1 to 10
randomnumber = randomnumber + cstr(Random(10))
next
tempDir = "lnssVerz" & randomnumber
'neue FTP-Verbindung erstellen
Set FTPobj=FTP.Connect (ip,21,mode,username,password)
'nach Herstellen der anonymen FTP-Verbindung versuchen, ein neues Verzeichnis zu erstellen
if FTPobj.CreateDirectory ( tempDir ) = TRUE then
echo "Berechtigung zum Erstellen von Verzeichnissen verfügbar auf anonymem FTP unter " + ip & cr
'jetzt versuchen, das Verzeichnis zu löschen
if FTPobj.RemoveDirectory ( tempDir ) = TRUE then
echo "Berechtigung zum Löschen von Verzeichnissen verfügbar auf anonymem FTP unter " + ip & cr
else
echo "Berechtigung zum Löschen von Verzeichnissen nicht verfügbar. Möglicherweise müssen Sie die von GFI LanGuard erstellten Verzeichnisse löschen" & cr
End If
End If
End Function