Private Sub Dir1_Change( ) Filet.Path=Dir1.Path End Sub Private Sub Dive1_Change( ) Dir1.Path=Drive1.Drive Label1,Caption=File1 ListCount End Sub
B.
Private Sub Dir1_Change( ) File.Path=Dtr1.Path End Sub privage Sub Dive1_Change( ) Dir1.path=Drive1.Drive Lahel1.Caption=File1.List End Sub
C.
Private Sub Dir1_Change( ) File1. Path = Dirl.Path Label1.Caption=File1, ListCount End Sub Private Sub Drive1_Change( ) Dir1.Path = Drive1. Drive Label1.Captiol1 = File1.ListCount End Sub(
D.
Private Sub Dir1_Change( ) Filel. Path = Dirl.Path Label1.Caption = File1.ListCount End Sub Private Sub Dive1_Change( ) Dir1.Path = Drive1.Drive Label1.Caption = File1.List End Sub