Problema com mostrar tamanho da pasta

[-_KIKO_- 0]

eu montei um sistema que mostra todos os arquivos e pastas da pasta X e da pasta Y e da Z :P/>

 

mas dai eu coloquei pra arredondar para Kb, Mb e bytes.] nos arquivos e rolou beleza

dai eu tentei fazer isso com as pastas e o tamanho delas é incrivelmente imbecil....vejam:

 

<% Set folderObject2 = folderObject.SubFoldersFor Each subFolder in FolderObject2pika = subfolder.name%>  <tr>    <td width="61%"><b><font face="verdana" size="2"><%=pika%> </td>    <td width="17%"><font face="verdana" size="2">Pasta</td>    <td width="15%">     <font face="verdana" size="2"><%    pastasize = folderObject.Size     If pastasize > 1048576 Then    Response.write(Round((folderObject.Size / 1048576),2 / 1048576) & "Mb")    elseif pastasize  < 1048576 Then    Response.Write Round((folderObject.Size / 1024),2) & " Kb"    elseif pastasize  < 1024 Then    Response.Write Round((folderObject.Size / 1024),2) & " Bytes"    end if %> </td>    <td width="7%">     </td>  </tr><%Next %>

A pasta "TESTE" tem 3,44Mb e ele mostra 23Mb...

O resto dos arquivos, estão no tamanho correto e a logica é essa:

 

<%For Each file In filesObject%><% nome = file.NameSet fileObject = fso.GetFile(Server.MapPath("web\") & "\" & Nome ) %><font face="Verdana" size="2"></font>    <td width="61%"><font face="verdana" size="2"><% Response.Write file.Name %> </td><%kiko = FileObject.Typetamanho = fileObject.SizeIf kiko = "Arquivo ZIP do WinRAR" Then	kiko = "Arquivo ZIP"ElseIf kiko = "Documento do Active Server" Then	kiko = "Documento ASP"ElseIf kiko = "Arquivo de filme (MPEG)" Then	kiko = "Filme/Clipe	"Elsekiko = kikoEnd If%>    <td width="17%"><font face="verdana" size="2"><%=kiko%> </td>    <td width="15%"><font face="verdana" size="2"><%     If tamanho > 1048576 Then    Response.write(Round((fileObject.Size / 1048576),2 / 1048576) & "Mb")    else    Response.Write Round((fileObject.Size / 1024),2) & " Kb"    end if %> </td>    <td width="7%">    <img border="0" src="../../templates/imgs/delete.jpg" align="right" width="18" height="22"><img border="0" src="../../templates/imgs/rename.jpg" align="right"></td>  </tr><% next %><font face="Verdana" size="2"><%end ifSet fileObject = NothingSet folderObject = NothingSet fso = Nothing%>

 

 

 

 

 

<span style='font-size:14pt;line-height:100%'>HELP!!!</span>

[WebASP 0]

Use esta função

 

Function FormatSize (givenSize)  If (givenSize < 1024) Then 	 FormatSize = givenSize & " Bytes"  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

[-_KIKO_- 0]

usei a function, todos os arquivos.txt, asp, cgi, php, gif, jpg e etc ficarão a mesma coisa de antes ...mas a pasta, nada.... :(/> eu fiz uma pasta com um arquivo 0Bytes TXT, mostra 19,39Mb... :S