CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Synchronize Drive, Dir And File List Boxes

Option Explicit
 
'Add Drive List Box, Dir List Box and File List Box to your Form and add the following code:

Dim DriveTemp As Integer
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub
 
Private Sub Drive1_Change()
    On Error GoTo Drive1_Change_Error
    Dir1.Path = Drive1.Drive
    DriveTemp = Drive1.ListIndex
    On Error GoTo 0
    Exit Sub
Drive1_Change_Error:
    Drive1.ListIndex = DriveTemp
End Sub
 
Private Sub Form_Load()
    DriveTemp = Drive1.ListIndex
End Sub