Modificare il file: \iwgallery\includes\inc_filesize.asp

<% Function GetFileSize(strFile) Dim objFileSystem Dim FileSize Dim FilePath Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject") FilePath = Server.MapPath(strPublicPath) FilePath = FilePath & "/" & strFile If objFileSystem.FileExists(FilePath) then Set objFile = objFileSystem.GetFile(FilePath) FileSize = (objFile.Size) End If filesize = (filesize/1024) filesize= round(filesize, 0) GetFileSize = filesize End Function %>

[Íàçàä]