A.PriVate Sub Dir1_Change() FilePath=Dir1.Path End Sub Private Sub Dirvel_Change() Dir1.Path=DriveDrive LabelCaption=FileListCount End Sub B.Private Sub Dir1_Change() FilePath=Dir1.Path End Sub Private Sub Drivel_Change() DirPath=DriveDrive LabelCaption=FileList End Sub C.Private Sub Dir1_Change() FilePath=Dir1.Path LabelCaption=File1.ListCount End Sub Private Sub Drivel_Change() Dir1.Path=DriveDrive LabelCaption=Fil1.ListCount End Sub D.Private Sub Dir1_Change() File1.Path=Dir1.Path LabelCaption=FileList End Sub Private Sub Drivel_Change() Dir1.Path=DriveDrive LabelCaption=FileList End Sub