Торможу... Как указать путь к папке?

Private Sub Dir_DirectoryList_KeyPress(KeyAscii)
    If KeyAscii = 13 Then Dir_DirectoryList.Path = Dir_DirectoryList.List(Dir_DirectoryList.ListIndex)
End Sub

Private Sub Dir_DirectoryList_Change()
    ChDir Dir_DirectoryList.Path
End Sub

Private Sub Drv_DriveList_Change()
    ' Selecting a drive from a Drive control does not generate an error
    ' if the selected drive is not ready, so we verify that the drive is
    ' in fact ready before we accept the drive.
    Dim Dummy$
    On Error Resume Next
    Err = False
    ' Invoking the Dir$() function with the selected drive will generate
    ' an error if the drive is not ready.  We don't care about the return
    ' value, we just care if an error is generated or not.
    Dummy$ = Dir$(Left$(Drv_DriveList.Drive, 2))
    If Err Then
        ' The drive was not ready, so prompt the user
        Beep
        MsgBox Err.Description, 16, App.Title & " - ERROR: " + Format$(Err)
        ' Reset the Drive Control back to its previously selected drive
        Drv_DriveList.Drive = Left$(Dir_DirectoryList.Path, 2)
    Else
        ' The drive is ready, so change to that drive
        ChDrive Drv_DriveList.Drive
        Dir_DirectoryList.Path = CurDir$
        Dir_DirectoryList_Click
    End If
    On Error GoTo 0
End Sub