Bonjour,
J'essaye de calculer la taille totale de l'ensemble des fichiers présents dans un Array.
Voici le code :
La valeur retourné par la variable strFileSize n'est pas cohérent.
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
Avez-vous une idée ?
Merci
Srini
Partager