GetFindFileSize
GetFindFileSize recupera la dimensione del file con corrispondenza dopo una chiamata riuscita ai metodi FindFirstFile o FindNextFile.
Quando viene chiamato, FindFileClose, GetFindFileName, GetFindFileSize e GetFindFileAttributes non devono essere utilizzati poiché causerebbero l’esito negativo del motore di scripting.
Sintassi
GetFileSize
Restituisce
Intero lungo contenente la dimensione del file.
Esempio
Esempio della funzione RenameFile nell’oggetto FTPUn protocollo utilizzato per il trasferimento dei file tra i computer di rete.. Rinomina tutti i file trovati nella radice del server 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,"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 + " dimensione: " + CStr(FTPobj.GetFindFileSize) + " tipo byte: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function