GetFindFileSize
GetFindFileSize recupera el tamaño de archivo del archivo coincidente actual después de una solicitud exitosa a los métodos FindFirstFile o FindNextFile.
Cuando se solicita FindFileClose, GetFindFileName, GetFindFileSize y GetFindFileAttributes no se deben utilizar debido a que esto ocasionará un error en el motor de Scripting.
Sintaxis
GetFileSize
Devolución
Entero largo que contiene el tamaño del archivo.
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"
End If
echo "File: " + FTPobj.GetFindFileName + " size: " + CStr(FTPobj.GetFindFileSize) + " bytes type: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function