Saisko jotenki Dir1:hen käymää kaikissa hakemistoissa, jos vaik Timer1 menis 1sec välein aina seuraavaa hakemistoo ja sitte ku siel ei olis enää alihakemistoi nii seuraavaa hakemistoo jota ei oo tarkistettu ja sen alihakemistoissa käynti ja sama toistuu kunnes kaikissa hakemistoissa on käyty?
Saa varmasti, jos vaan jaksaisin vähän miettiä, mutta kun nyt en juuri jaksa niin joku muu saa vastata. Ja olisko QB:lle samanlaista?
Homman voi ratkaista rekursio ohjelmoinnilla, tässä ohjelman proto:
sub etsi(myPath)
Eka hakemisto sadaan: MyName = Dir(MyPath, vbDirectory)
Seuraava hakemisto: MyName = Dir
kun tiedistot loppuu niin Dir antaa ""
ohita "." ja ".." hakemistonimet
tarkistus onko varmasti hakemisto: GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory
lue loopilla kaikki hakemistot taulukkoon hakemistonnimi()
käy taulukko läpi loopilla
näytetään hakemisto: Dir1.path=hakemistonnimi(i)
loopin sisällä kutsu etsi(hakemistonnimi(i)) eli kutsutaan itseä eli mennään syvemmälle hakemistorakenteessa
kun alihakemistoja ei enää ole niin palataan ylemmlle tasolle hakemistossa poitumalla aliohjelmasta
end sub
Vilkaisepa tämä koodivinkki: https://www.ohjelmointiputka.net/koodivinkit/
Aihe on jo aika vanha, joten et voi enää vastata siihen.