Keskustelu: Ohjelmointikysymykset: VB6: kansion nimen haku

On sellainen ongelma, että pitäisi saada kansion nimi talletettua muuttujaan. Kansion nimi on käyttäjästä riippuvainen ja se sijaitsee 2. ylimpänä kansiona polussa "c:\program files\". Saan Dir1.Path = "C:\Program Files\" ja sen jälkeen NIMI = Dir1.List(0)käyttämällä ylimmän kansion nimen (C:\Program Files\nimi), mutta kuinka saan seuraavana olevan kansion nimen haettua??

Jos kerran Dir1.List(0) palauttaa ensimmäisen, niin eiköhän Dir1.List(1) palauta seuraavan?

Eikö kuitenkin tuohon kansioiden ihmettelyyn paremmin sopisi Dir funktio, jos se kerran on "aina" Program Files:n toinen kansio?

Private Sub Command1_Click()
    Dim polku As String: polku = "C:\Program Files\"
    Dim filu As String

    filu = Dir(polku, vbDirectory)
    Do While filu <> ""
        If Trim(filu) <> "." And Trim(filu) <> ".." Then Debug.Print filu 'listaa kaikki kansiot Program Files:sta
        filu = Dir
    Loop
End Sub