FindFirstFile
FindFirstFile inicia a enumeração de arquivos e diretório no diretório atual do servidor FTPProtocolo usado para transferir arquivos entre computadores da rede. remoto.
Sintaxe
FindFirstFile(CADEIA DE CARACTERES máscara de arquivo)
Na qual:
Máscara de arquivoé uma cadeia de caracteres. Costuma ser “*” para enumerar todos os arquivos.
Retorno
- Booleano. Se retorna
TRUE, significa que pelo menos um arquivo no servidor FTP remoto correspondeu - É possível recuperar o nome e tamanho do primeiro arquivo correspondente usando os métodos
GetFindFileName()eGetFindFileSize(). - O método
FindNextFile()é usado para se mover para o próximo arquivo correspondente FindFirstFileretornaFALSEcaso não encontre arquivos correspondentesFindFirstFiletambém retornaFALSEnas chamadas subsequentes deFindFirstFile()se a operação de busca atual não for fechada com o métodoFindFileClose()- Se retornar
FALSE,FTPObject.LastErrorretornará o código do erro WIN32.
Exemplo
Um exemplo da função RenameFile no Objeto FTP. 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