🚀 go-pugleaf

Hieronder vind je al de andere code die in't formulier te vinden is:

Private Sub Form_Load()
    'C:\ wordt automatisch geselecteerd
    Dir1.Path = "C:\"
    'in de textbox wordt de dir (bij't loaden dus C:\) geplaatst
    Text1.Text = Dir1.Path
End Sub

Private Sub Dir1_Change()
    'Het path van de FileListBox wordt aangepast aan die van de DirListBox
    File1.Path = Dir1.Path
    'in de textbox wordt het path geplaatst
    Text1.Text = Dir1.Path
End Sub

Private Sub Drive1_Change()
    On Error GoTo Err_Drive1_Change
    Oorspronkelijk1 = Dir1.Path
    Dir1.Path = Drive1.Drive
Exit_Drive1_Change:
        Exit Sub
Err_Drive1_Change:
        MsgBox Err.Description
        'Dient om de oorspronkelijke dir terug te zetten (als je bv A:\
selecteerd en er zit geen diskette in, dan krijg je eerst de foutmelding en
dan terug de vorige dir)
        Drive1.Drive = Oorspronkelijk
        Resume Exit_Drive1_Change
End Sub


"TRAX" <Stijn.Verspeet@pandora[delete.this].be> wrote in message
news:gwvub.30667$_n2.995358@phobos.telenet-ops.be...
> denk niet dat het aan dit stukje code ligt maar aan het opvullen van de
> listbox wanneer je elders de directory verandert, misschien die event
> handler eens posten?
>
>
>