FindFileClose
Busca el archivo siguiente que coincida con la máscara de archivo especificada por el método FindFirstFile. No es necesario solicitar esto si la solicitud de FindFirstFile() ha fallado.
Sintaxis
FindFileClose
Devolución
No se devuelven datos.
Ejemplo
Un ejemplo de la función FindFileClose en el objeto FTPProtocolo que se utiliza para transferir archivos entre equipos de redes.. Busca un archivo determinado hasta que lo encuentra en la raíz:
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,puerto,TRUE,"anonymous","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType="directory"
Found=FTPobj.FindNextFile
Else
FileType="file"
if FTPobj.GetFindFileName = "test.zip" then
echo "test.zip exists" & cr
FTPobj.FindFileClose
Found = false
else
echo "test.zip does not exist" & cr
Found=FTPobj.FindNextFile
End If
End If
Wend
End Function