FindNextFile
Procura o próximo arquivo que corresponda à máscara de arquivo especificada pelo método FindFirstFile.
Sintaxe
FindNextFile
Retorno
- Booleano. Se retornar
TRUE
, significa que foram encontrados mais arquivos correspondentes à máscara de arquivo especificada pelo métodoFindFirstFile
- É possível recuperar o nome e tamanho do primeiro arquivo correspondente usando os métodos
GetFindFileName()
eGetFindFileSize()
. FindNextFile
retornaFALSE
caso não encontre arquivos correspondentesFindNextFile
deve ser chamada entre uma chamada bem-sucedida paraFindFirstFile()
e uma chamada paraFindFileClose()
- O método retorna
FALSE
se chamado fora desse escopo - Se retornar
FALSE
,FTPObject.LastError
retornará o código do erro WIN32.
Exemplo
Um exemplo da função RenameFile no Objeto FTPProtocolo usado para transferir arquivos entre computadores da rede.. Renomeia todos os arquivos encontrados na raiz do servidor FTP:
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"
Else
FileType=”arquivo"
FileName = FTPobj.GetFindFileName
RenameFileName = “renomeado_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
echo “Arquivo: " + FTPobj.GetFindFileName + " tamanho: " + CStr(FTPobj.GetFindFileSize) + " tipo bytes: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function