Keskustelu: Ohjelmointikysymykset: VB6: Vb tiedosto järjestys

Miten saa tiedostot näkymään tiedostopäätteen tyypin mukaan aakkosjärjestyksessä

Kahdella ListBoxilla. Toiseen, jonka Sorted = True, laitat tiedostotarkenteen ja toiseen koko nimen. Nimet lisätään AddItem-metodilla, ensin tarkenne, ja sitten koko nimi käyttäen edellisen NewIndexiä osoittamaan paikkaa.

kehtaatko laittaa esimerkin, ei itseltä tahdo oikein onnistua.

Se tulis VB 6.00:lle

No tässä on testikoodi. Lomakkeella on FilelistBox File1, ListBoxit List1 ja List2 sekä komentopainike cmdFile. Oletusksena kolmen merkin tarkenne ja tiedostot samasta kansiosta kuin ohjelma. Niitähän voi sitten muuttaa tarvittaessa.

Private Sub cmdFile_Click()
  For i = 0 To File1.ListCount - 1
    List1.AddItem Right(File1.List(i), 3) & File1.List(i)
    List2.AddItem File1.List(i), List1.NewIndex
  Next
End Sub

Kiitos ja kumarrus!

mitenkäs jos haluais ne luontipäivämäärän mukaan?

Tälläät List1:een luontipäivämäärät

Ja Tossa on koodit, että miten tiedoston viimeisimmän muokaus päivän ja tiedoston koon saa selville

'***** Viimeksi moukattu
Dim muokattu As Date
muokattu = FileDateTime("c:\tiedosto.txt")
MsgBox "Tiedostoa on viimeksi muokattu " & muokattu

'*****Tiedoston koko
Dim Koko As Long
Koko = FileLen("c:\tiedosto.txt")
MsgBox "Tiedoston koko on " & Koko & " tavua"

EDIT:Oho! Korjasin pikku virheen!