FindFirstFile
FindFirstFile initiiert eine Auflistung von Dateien und Verzeichnissen im aktuellen Verzeichnis auf dem entfernten FTPEin Protokoll, das zur Übertragung von Dateien zwischen Netzwerkcomputern verwendet wird.-Server.
Syntax
FindFirstFile(STRING filemask)
Bedeutung der Parameter:
Filemaskist eine Zeichenfolge. Mit “*” können Sie alle Dateien aufzählen.
Rückgabewert
- Boolescher Wert. Wenn
TRUEzurückgegeben wird, bedeutet dies, dass mindestens eine Datei auf dem entfernten FTP-Server der Dateimaske entspricht. - Mit den Methoden
GetFindFileName()undGetFindFileSize()können Sie den Dateinamen und die Dateigröße der ersten gefundenen Datei abrufen. - Mit der Methode
FindNextFile()können Sie zur nächsten entsprechenden Datei wechseln. FindFirstFileliefertFALSE, falls keine entsprechenden Dateien gefunden wurden.FindFirstFileliefert außerdemFALSEbei nachfolgenden Aufrufen vonFindFirstFile(), wenn der aktuelle Suchvorgang nicht mit der MethodeFindFileClose()abgeschlossen wurde.- Falls
FALSEzurückgegeben wird, liefertFTPObject.LastErrorden WIN32-Fehlercode.
Beispiel
Beispiel für die RenameFile-Funktion in Verbindung mit dem FTP-Objekt. In diesem Beispiel werden alle Dateien umbenannt, die sich im Wurzelverzeichnis des FTP-Servers befinden:
Function Main
Dim FTPobj as Object
Const DIRECTORYMASK=&H10
ip = "127.0.0.1"
port = 21
cr = Chr(13) + Chr(10)
Set FTPobj = FTP.Connect (ip,port,TRUE,"anonymous","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType="Verzeichnis"
Else
FileType="Datei"
FileName = FTPobj.GetFindFileName
RenameFileName = "umbenannt_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
echo "Datei: " + FTPobj.GetFindFileName + " Größe: " + CStr(FTPobj.GetFindFileSize) + " Byte Typ: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function