Private Sub dlgApri_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles dlgApri.FileOk
        Dim listI As ListViewItem
Dim fi As FileInfo
Dim totalByte as double = 0

        For Me.i = 0 To dlgApri.FileNames.Count - 1
            listI = New ListViewItem
            'la funzione GetFileName permette di estrarre il nome del file dato il suo percorso
            listI.Text = GetFileName(dlgApri.FileNames.ElementAt(i))
            listI.SubItems.Add(dlgApri.FileNames.ElementAt(i))
            listI.ImageIndex = 0 'indica l'indice dell'immagine di ImageList1 da inserire accanto ad ogni elemento della lista
            lsvAll.Items.Add(listI)

fi = new FileInfo(dlgApri.FileNames(i))
totalByte = totalByte  + fi.Length

        Next


''qui in totalByte hai il totale della dimensione file espresso in byte
''se dividi per 1024 avrai il valore in Kb
''Se dividi per 1048576 avrai il valore in Mb


    End Sub