A.Private Sub Dir1_Change( ) FilePath=Dir1.Path End Sub Private Sub Dive1_Change( ) Dir1.Path=Drive1.Drive Label1,Caption=File1 ListCount End Sub B.Private Sub Dir1_Change( ) FilPath=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 = DirPath 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( ) File Path = DirPath Label1.Caption = File1.ListCount End Sub Private Sub Dive1_Change( ) Dir1.Path = Drive1.Drive Label1.Caption = File1.List End Sub