Bonjour,

J'essaye de calculer la taille totale de l'ensemble des fichiers présents dans un Array.

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
        xmld.Load(CallByName(Me, "userXMLFile", vbMethod))
 
        Dim lstFileIncl As XmlNode
        lstFileIncl = xmld.SelectSingleNode("ebs/include/file")
        Dim lstRFileIncl As String = lstFileIncl.InnerText
        Dim ListItems1 As Array = lstRFileIncl.Split(New Char() {";"})
 
        Dim strFileSize As Double
 
        If lstRFileIncl <> "" Then
            For Each obj In ListItems1
                strFileSize = strFileSize + Math.Round(obj.Length)
            Next
        End If
La valeur retourné par la variable strFileSize n'est pas cohérent.

Avez-vous une idée ?

Merci

Srini