FindNextFile
Busca el archivo siguiente que coincida con la máscara de archivo especificada por el método FindFirstFile.
Sintaxis
FindNextFile
Devolución
- Booleano. Si la devolución es
TRUE, significa que se encontraron más archivos que coinciden con la máscara de archivo especificada por el métodoFindFirstFile - El nombre y el tamaño del primer archivo coincidente se pueden recuperar utilizando los métodos
GetFindFileName()yGetFindFileSize(). FindNextFiledevolveráFALSEsi no se encuentran archivos coincidentesFindNextFilese debe solicitar en medio de una solicitud exitosa aFindFirstFile()y una solicitud aFindFileClose()- El método devolverá
FALSEsi la solicitud se realiza fuera de este ámbito - Cuando la devolución sea
FALSE,FTPObject.LastErrordevolverá el código de error WIN32.
Ejemplo
Un ejemplo de la función RenameFile en el objeto FTPProtocolo que se utiliza para transferir archivos entre equipos de redes.. Cambia el nombre de todos los archivos hallados en la raíz del 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,puerto,TRUE,"anonymous","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType="directory"
Else
FileType="file"
FileName = FTPobj.GetFindFileName
RenameFileName = "renamed_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
echo "File: " + FTPobj.GetFindFileName + " size: " + CStr(FTPobj.GetFindFileSize) + " bytes type: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function