dimensione file

[maxcondor]

Come si fa a determinare la dimensione di un file in Mb?

[Roby_72]

Devi usare la proprietà Size dell'oggetto File System Object.
Fai una ricerca.

Roby

[elisa21]

io utilizzo queste due funzioni:
<%
'calcolo del peso
function calcolaDimensione (nomeDoc)
Dim FS
Set FS = Server.CreateObject("Scripting.FileSystemObject")
Dim File
on error resume next
Set File = FS.GetFile(server.mappath("/cartella_dove_si_trova_il_file/" & nomeDoc))
kb = int(File.Size)
calcolaDimensione = kb
FS.close
Set FS = Nothing
File.close
Set File = Nothing
end function

' Formats given size in bytes,KB,MB and GB
Function FormatSize(givenSize)
If (givenSize < 1024) Then
FormatSize = givenSize & " B"
ElseIf (givenSize < 1024*1024) Then
FormatSize = FormatNumber(givenSize/1024,2) & " KB"
ElseIf (givenSize < 1024*1024*1024) Then
FormatSize = FormatNumber(givenSize/(1024*1024),2) & " MB"
Else
FormatSize = FormatNumber(givenSize/(1024*1024*1024),2) & " GB"
End If
End Function

'poi recupero il file da controllare
peso = calcolaDimensione (nome_file_da_controllare)
%>

ed in fine richiamo la seconda funzione:
dimensioni file:<%= FormatSize (peso)%>

ciao ciao
elisa

[maxcondor]

Function PesoFile(nomef)
	Set Fso = server.CreateObject("Scripting.FileSystemObject")
	PathHTTP = "/client.img/fotobeg/" & nomef 
	PathFSO = Server.MapPath(PathHTTP)
	'response.Write(PathFso)
	Set File = Fso.GetFile(PathFso)
	PesoFile= round(FormatNumber(file.size/1000,2))
	Fso.close
	Set Fso = Nothing
	File.close
	Set File = Nothing
End Function

Ho provato cosi è funziona però devo eliminare le righe che distruggono l'oggetto Fso e File perchè ricevo l'errore Errore di run-time di Microsoft VBScript error '800a01b6'

Proprietà o metodo non supportati dall'oggetto: 'Fso.close'

[Roby_72]

Function PesoFile(nomef)
	Set Fso = server.CreateObject("Scripting.FileSystemObject")
	PathHTTP = "/client.img/fotobeg/" & nomef 
	PathFSO = Server.MapPath(PathHTTP)
	'response.Write(PathFso)
	Set File = Fso.GetFile(PathFso)
	PesoFile= round(FormatNumber(file.size/1000,2))
	Set File = Nothing
	Set Fso = Nothing
End Function

Roby

[maxcondor]

si infatti bisogna togliere l'istruzione close...

[paolo bosani]

Ciao a tutti, stavo cercanado di provare la funzione ma senza riuscire.
Io dovrei ricavare il peso dei file allegati e stamparla in questo pezzo, ma non sono riuscito:

 <%
	filename = RsNews("FileName")
	titles = RsNews("AltDescription") %>
	  <% if filename <>"" then%>
                   <h4>Documentazione:</h4>
          <ul>
            <%
	 filename=split(cstr(filename),";")
	 titles=split(cstr(titles),";")
		for x=0 to ubound(filename)
             	if trim(titles(x))<>"" then %>
	[*]<a title="Scarica il documento: <%=trim(titles(x))%>" href="upload/<%=trim(filename(x))%>">

Sto impazzendo, sono sicuro che sia una scemata, ma sono talmente fuso che non mi viene.