FindFirstFile
FindFirstFile inicia una enumeración de archivos y directorios en el directorio actual del servidor FTPProtocolo que se utiliza para transferir archivos entre equipos de redes. remoto.
Sintaxis
FindFirstFile(filemask de CADENA)
Donde:
Filemaskes una cadena. Generalmente, sería “*” para enumerar todos los archivos.
Devolución
- Booleano. Si la devolución es
TRUE, significa que por lo menos un archivo del servidor FTP remoto ha coincidido - El nombre y el tamaño del primer archivo coincidente se pueden recuperar utilizando los métodos
GetFindFileName()yGetFindFileSize(). - El método
FindNextFile()se utiliza para pasar al siguiente archivo coincidente FindFirstFiledevolveráFALSEsi no se encuentran archivos coincidentesFindFirstFiletambién devolveráFALSEen solicitudes consecutivas aFindFirstFile()si la operación de búsqueda actual no se ha cerrado con el métodoFindFileClose()- 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 FTP. 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