PriVate Sub Dir1_Change() Filel.Path=Dir1.Path End Sub Private Sub Dirvel_Change() Dir1.Path=Drivel.Drive Labell.Caption=Filel.ListCount End Sub
B.
Private Sub Dir1_Change() Filel.Path=Dir1.Path End Sub Private Sub Drivel_Change() Dirl.Path=Drivel.Drive Labell.Caption=Filel.List End Sub
C.
Private Sub Dir1_Change() Filel.Path=Dir1.Path Labell.Caption=File1.ListCount End Sub Private Sub Drivel_Change() Dir1.Path=Drivel.Drive Labell.Caption=Fil1.ListCount End Sub
D.
Private Sub Dir1_Change() File1.Path=Dir1.Path Labell.Caption=Filel.List End Sub Private Sub Drivel_Change() Dir1.Path=Drivel.Drive Labell.Caption=Filel.List End Sub