- Come confrontare le dimensioni di due file -
 
COSA SERVE PER QUESTO TUTORIAL
Download | Chiedi sul FORUM | Glossario Conoscenza dell'HTML - un server che supporti la tecnologia ASP .NET - facoltativamente un editor provvisto di intellisense (es. Macromedia Dreamweaver)
Una tabella che mette a confronto il peso di due file specificati

L'OGGETTO IO.FILEINFO
Come ottenere e mettere in un formato adatto le dimensioni di un file.

Codice:


<%@ Page Language="VB" debug="true" %>
<%@ import Namespace="System.IO" %>

<script language="VB" runat="server">

'Usiamo le API per settare l'unità di misura
Public Declare Function StrFormatByteSizeA Lib "shlwapi" _
(ByVal dw As Integer, ByVal szBuf As String, ByVal iBufSize As Integer) As Integer

'Calcoliamo i dati che ci interssano
sub calcolo(Obj as object, e as eventargs)

'variabili in uso
Dim buffa1 as new string(" ", 255)
Dim buffa2 as new string(" ", 255)
Dim file1 as new fileInfo(primo.text)
Dim file2 as new fileInfo(secondo.text)
Dim legge as streamreader
Dim contenuto as string

Dim numero as Integer = 255

'Conversione 
StrFormatByteSizeA(file1.length, buffa1, numero)
buffa1 = buffa1.substring(0, numero)

StrFormatByteSizeA(file2.length, buffa2, numero)
buffa2 = buffa2.substring(0, numero)

'Responso
risultato.text = "<table border=""1"" cellpadding=""3""><tr><td colspan=""3"">PESO A CONFRONTO</td></tr> <tr><td>NOME FILE</td>"
risultato.text = risultato.text & "<td>" & file1.name & "</td><td>" & file2.name & "</td></tr>"
risultato.text = risultato.text & "<tr><td>PESO FILE</td> <td>" & buffa1 & "</td><td>" & buffa2 & "</td></tr>"

end sub
</script>

<html>
<head>
<title>Misurator</title>
</head>
<body>
<form runat="server">
Locazione primo file:<br>
<asp:textbox ID="primo" runat="server" Text="c:\" /><br><br>
Locazione secondo file:<br>
<asp:textbox ID="secondo" runat="server" Text="c:\" /><br><br>
<asp:button ID="invia" Text="Calcola" runat="server" OnClick="calcolo" />
</form>
<asp:label ID="risultato" runat="server" />
</body>
</html>

 
<< INDIETRO by aFiGoZ