filelistbox sortering

Sæt sorted under properties = true

//akj

sorry, jeg kunne ikke det hele af dit spørgsmål da jeg svarede.

//akj

Du kan finde størrelser mm.  på filer med filesystemobject

Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder("c:\temp")
Set filesObject = folderObject.Files

For Each file In filesObject
    List1.AddItem file.Name & " - " & file.Size & " - " & file.datelastmodified
Next

Set fileObject = Nothing
Set folderObject = Nothing
Set fso = Nothing

//akj

Jeg faldt lige over noget du måske kan bruge.

http://www.mvps.org/vbnet/index.html?code/fileapi/fsoapicompare.htm

//akj

Du kan som dk_akj foreslår finde datoerne, og så sortere efter dem. Der er mange eksempler på sortering på E (se sidst i mit svar)

Alternativt, og lidt smartere, synes jeg, kan du bruge ListView i stedet for FileListBOx- den har jeg selv brugt til at lave min egen "stifinder". Så får du headers, der er klikbare, ganske som i stifinderen, hvís du har slået detaljer til.

Du finder den sikkert ikke på din normale toolbox, så du må tilføje den (Ctrl+T), den ligger hos mig i Microsoft windows common controls 5.0 (SP2)

Når du har gjort det, så smid en FileList (File1) på din form sammen med dit Listview (ListView1) på din form, og indsæt koden her, så har du det du ønsker:

Private Sub Form_Load()
 
  Dim lngByte As Long
  Dim itmX
  Dim i

  'Indsætter kolonner i Listview1
  With ListView1
    .View = 3
    .ColumnHeaders.Add , , "Navn", 2000
    .ColumnHeaders.Add , , "Størrelse", 1100, lvwColumnRight
  End With
 
  'Nulstiller Listview1
  ListView1.ListItems.Clear
 
  'Indlæser filer i Listview1
  For i = 0 To File1.ListCount - 1
   
    'Skriver filnavn i listview1
    Set itmX = ListView1.ListItems.Add(, , File1.List(i))
   
    'Skriver filstørrelse
    lngByte = FileLen(File1.Path & "\" & File1.List(i))
    If (lngByte / 1024) < 1 Then
      itmX.SubItems(1) = "< 1 KB"
    Else
      itmX.SubItems(1) = Round(lngByte / 1024) & " KB"
    End If
  Next i
 
  Set itmX = Nothing
End Sub

NB: Ovenstående melder naturligvis fejl hvis File1 står i roden af et drev pga. den dobbelte \  ...det har du sikkert selv styr på at rette ;o)

Mht. sorteringen, skal den jo lige i den event der bliver triggered, når der klikkes på en kolonneoverskrift (som i stifinderen). Eksempler på sorteringsalgoritmer er at finde her: http://www.eksperten.dk/kat/5?searchtype=txt&words=sorter&method=and&sort=score&catid=5

26/05-2003 09:59:47 akj: Jeg kan ikke finde sorted under properties?

Mvh. Vanni

vanni:

Bruger du "min" løsning (med Listview) er der en property der hedder "Sorted" og en der hedder "Sortindex". Dvs. et er noget vrøvl når jeg skriver at du kan finde sorteringsalgoritmer på E - det er slet ikke nødvendigt :o)

Så må du jo overveje hvad for en kontrol du vil bruge - Listview eller FileListBox - FileListBOx har ikke en egenskab der hedder "sorted"

vanni: jeg smider gerne et "komplet" og simpelt eksemel på hvordan du bruger og sorterr i Listview :o)

martin: Meget gerne et simpelt eksempel.
Mvh. Vanni

Vanni

Øhmmm. Hvorfor tager du points selv ??

//akj

wups - glemte det eksempel jeg lovede. Er det ligemeget nu, eller?

26/05-2003 17:40:11 akj: Jeg fik desværre ikke noget svar.

Martin: Jeg har løst problemet. :o)

Mvh. Vanni

Jeg synes nu ellers du fik mange svar...

Nå - bare det virker :o)

martin: Det var akj, der ikke gav svar. Retfærdig skal jeg sige, at du ledte mig på rette spor.

Mvh. Vanni :o)