Mirar si supera el Fichero un tamaño

[Rodri_Ascariz]

Estoy intentado sabes si un fichero es superior de un tamaño predeperminado. y lo estoy haciendo con el objeto Scripting.FileSystemObject
pero no encuentro la mandita propiedad. cual es ó como se puede hacer ??

graicas

[Neuron_376]

Seria con otro objeto, prueba esto:

set FileWI = CreateObject("WindowsInstaller.Installer")
FileSize = Clng(FileWI.FileSize(ARCHIVO_QUE_DESEAS_MEDIR)

Suerte!!

[Cap.Buscapina]

aunque también con Scripting.FileSystemObject se puede.

proba con listing.size.

y si lo querés formatear para mostrarlo mejor

kb = formatnumber((listing.size / 1024),2,-1,0).



además de lo poco que conosco
con listing.name, por supuesto que el nombre y
con listing.DateCreated , la fecha de creación(aunque en realidad creo que muestra la última modificación.)

espero que te sirva

[Rodri_Ascariz]

Estado probando los codigos siguientes y me dan error, que estoy haciendo mar ?????
1º

Código:

filename = request("imagen")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filename) ' aki error
response.Write "Tamaño: "& f.Size

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0035)
Archivo no encontrado


2º

Código:

set FileWI = CreateObject("WindowsInstaller.Installer")
FileSize = Clng(FileWI.FileSize(filename)

Tipo de error:
Msi API Error (0x3E8)
FileSize,FilePath

3º

Código:

filename = request("imagen")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filename)
formatnumber((f.ze / 1024),2,-1,0)

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0035)
Archivo no encontrado


QUE PUEDO HACER ?????????[COLOR=Orange]

[Cap.Buscapina]

yo lo utilizo para leer todo el contenido de una determinada carpeta

ej

dirname= "archivos"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(server.mappath(dirname))
Set filez = folder.Files
For Each listing in filez
kb = formatnumber((listing.size / 1024),2,-1,0)
Title = left(listing.name,TotalChars - 4)
response.write title & "(" & kb & ")"
next


con eso verificas todos los archivos que tengas en la carpeta "archivos" e imprimes el nombre sin extencion(title) y el tamaño en kb (kb)


Hasta el momento no tuve que definir cuanto pesa un archivo en especil, pero modificandolo un poco, se podría hacer.

[Neuron_376]

Para usar el metodo que te propuse tu maquina debe tener instalado el Microsotf Windows Instales, buscalo en la pagina oficial, bajalo e instalalo, y por cierto, como dijo B.P, para leer los archivos debes poner la direccion completa y absoluta, como:

c:\inetpub\wwwroot\miarchiv.nnn