GetFindFileSize
GetFindFileSize ruft nach einem erfolgreichen Aufruf der Methode FindFirstFile oder FindNextFile die Dateigröße der gegenwärtig ausgewählten Datei ab.
Wenn FindFileClose aufgerufen wird, dürfen GetFindFileName, GetFindFileSize und GetFindFileAttributes nicht verwendet werden, da das Scripting-Modul andernfalls abstürzen würde.
Syntax
GetFileSize
Rückgabewert
Lange ganze Zahl, welche die Dateigröße enthält.
Beispiel
Beispiel für die RenameFile-Funktion in Verbindung mit dem FTPEin Protokoll, das zur Übertragung von Dateien zwischen Netzwerkcomputern verwendet wird.-Objekt. In diesem Beispiel werden alle Dateien umbenannt, die sich im Wurzelverzeichnis des FTP-Servers befinden:
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="Verzeichnis"
Else
FileType="Datei"
End If
echo "Datei: " + FTPobj.GetFindFileName + " Größe: " + CStr(FTPobj.GetFindFileSize) + " Byte Typ: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function