Dimensioni del file

[Grinder]

Sto provando ad usare questo codice:

Dim fs,f
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFile("../Download/"&rs_descrizione("file_1"))
Response.Write rs_descrizione("desc_file_1")
Response.Write "("&f.Size & " bytes.)"
set f=nothing
set fs=nothing

Non mi da nessun errore, però non mi scrive le dimensioni del file! Come si fa poi a calolare i Kbytes?

[Galex]

?che vuol di?
non ti scrive x niente le dimensioni,o te le scrive in bytes e tu le vuoi in Kb.Mb,etc...

[Baol74]

Non puoi mettere il percorso così,devi fare il Server.MapPath del percorso.

Se sei su Server 2003 ti darà errore se è disabilitato il Parent Path.

Dim fs,f,Path,Desc

Set fs=Server.CreateObject("Scripting.FileSystemObject")
'Qui di darà errore se sei su 2003
Path = Server.MapPath( "../Download/" & rs_descrizione("file_1") )
Set File=fs.GetFile(Path)
Desc = File.Name & "(" & cStr(File.Size) & " bytes.)"
Response.Write Desc
set File=nothing
set fs=nothing

[Grinder]

Come si convertono i bytes in Kbytes?

[Baol74]

kB = Bytes /1024

[Galex]

    Function FormatSize(size)
      If size < 1024 Then
      	FormatSize=size&" bytes"
      elseIf size < 1048576 Then
      	FormatSize=Round(size/1024, 2)&" Kb"
      else
      	FormatSize=Round((size/1024)/1024.1, 2)&" Mb"
      end if
    End Function

[Grinder]

Grassie