Discussion :

[Sprsrini]

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

[Sprsrini]

Bonjour,

J'ai résolu le problème en rajoutant cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim diBase As New FileInfo(obj)

Le code final qui fonctionne :

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
16
        xmld.Load(CallByName(Me, "userXMLFile", vbMethod))
        Dim srcFolder As String = CallByName(Me, "srcFolder", vbMethod)
 
        Dim lstFileIncl As XmlNode
        lstFileIncl = xmld.SelectSingleNode("ebs/include/file/path")
        Dim lstRFileIncl As String = lstFileIncl.InnerText
        Dim ListItems1 As Array = lstRFileIncl.Split(New Char() {";"})
 
        Dim strFileSize As Double = 0
 
        If lstRFileIncl <> "" Then
            For Each obj As Object In ListItems1
                Dim diBase As New FileInfo(obj)
                strFileSize = strFileSize + Math.Round(diBase.Length)
            Next
        End If