Mb tæller

Tja prøv at hente Wincmd på http://www.ghisler.com

Hvis du har hele stien til hver fil fra listboxen så kan du tælle sammen vha.
Flg. antager at hele stien+filnavn er det der står i listboxen..

Dim lngSize as long

For index = 0 to list1.listcount - 1
  if list1.list(index).selected = true then lngSize = lngSize + FileLen(list1.list(index))
next

Ok... denne her er rimelig simpel... du skal nok bygge lidt på den, men den viser \"starten\":

Opret en form, put en FileListBox med navnet \'File1\' på formen. Lav en label med navnet \'Label1\' og sæt AutoSize til True.
Prop denne kode på formen:

Private Sub File1_Click()
  Dim Size As String
  Size = FileLen(File1.filename)
  Label1.Caption = (Size / 1000000) & \" MB\"
End Sub

Der skal arbejdes lidt på multiselection men det overlader jeg til dig :P
Håber du kan bruge det til noget...
Held og lykke!

/MadD

Uupps....havde ikke set tdaugaards svar! Sorry!

Faktisk glemte jeg MB... dette er bytes..

For index = 0 to list1.listcount - 1
  if list1.list(index).selected = true then lngSize = lngSize + FileLen(list1.list(index))
next

strSize = FormatNumber(lngSize / 1048576, 0, 0, 2, True) \' ikke helt sikker på antallet af argumenter, så check lige om det er ok..