A.Private Sub Dir1_Change() File 1.Path=Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End Sub B.Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub C.Private Sub Dir1_Change() File1.Path=Dir1.Path Label1.Caption=File1.ListCount End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End Sub D.Private Sub Dir1_Change() File1.Path=Dir1.Path Label1.Caption=File1.List End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub