FindFileClose
Procura o próximo arquivo que corresponda à máscara de arquivo especificada pelo método FindFirstFile. Não é preciso usar isso se FindFirstFile() falhar.
Sintaxe
FindFileClose
Retorno
Nenhum dado retornado.
Exemplo
Um exemplo da função FindFileClose no Objeto FTPProtocolo usado para transferir arquivos entre computadores da rede.. Busca certo arquivo até encontrá-lo no diretório raiz:
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,”anônimo","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType=”diretório"
Found=FTPobj.FindNextFile
Else
FileType=”arquivo"
if FTPobj.GetFindFileName = “teste.zip" then
echo “teste.zip existe" & cr
FTPobj.FindFileClose
Found = false
else
echo “teste.zip não existe" & cr
Found=FTPobj.FindNextFile
End If
End If
Wend
End Function