FindFileClose
Sucht nach der nächsten Datei, die der mit der Methode FindFirstFile angegebenen Dateimaske entspricht. Sie müssen diese Methode nicht aufrufen, falls der Aufruf von FindFirstFile() fehlgeschlagen ist.
Syntax
FindFileClose
Rückgabewert
Keine Rückgabedaten.
Beispiel
Beispiel für die FindFileClose-Funktion in Verbindung mit dem FTPEin Protokoll, das zur Übertragung von Dateien zwischen Netzwerkcomputern verwendet wird.-Objekt. Sucht nach einer bestimmten Datei, bis diese im Wurzelverzeichnis gefunden wurde:
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"
Found=FTPobj.FindNextFile
Else
FileType="Datei"
if FTPobj.GetFindFileName = "test.zip" then
echo "test.zip exists" & cr
FTPobj.FindFileClose
Found = false
else
echo "test.zip ist nicht vorhanden" & cr
Found=FTPobj.FindNextFile
End If
End If
Wend
End Function